結果

問題 No.497 入れ子の箱
コンテスト
ユーザー 👑 tails
提出日時 2015-05-06 19:37:29
言語 Perl
(5.42.0)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
AC  
実行時間 148 ms / 5,000 ms
コード長 286 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 701 ms
コンパイル使用メモリ 8,224 KB
実行使用メモリ 7,716 KB
最終ジャッジ日時 2026-03-27 08:21:17
合計ジャッジ時間 4,997 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 29
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

<>;
@a=sort{$a->[0]<=>$b->[0]}map[sort{$b<=>$a}/\d+/g],<>;

for$i(0..@a-1){
	$a=$a[$i];
	for$j(0..$i-1){
		$b=$a[$j];
		if($a->[0]>$b->[0]&&$a->[1]>$b->[1]&&$a->[2]>$b->[2]){
			if($r[$i]<$r[$j]+1){
				$r[$i]=$r[$j]+1;
				if($r<$r[$i]){
					$r=$r[$i];
				}
			}
		}
	}
}
print$r+1;
0