結果

問題 No.497 入れ子の箱
コンテスト
ユーザー tails
提出日時 2015-05-06 19:37:29
言語 Perl
(5.40.0)
結果
AC  
実行時間 205 ms / 5,000 ms
コード長 286 bytes
コンパイル時間 348 ms
コンパイル使用メモリ 5,504 KB
実行使用メモリ 6,144 KB
最終ジャッジ日時 2024-07-05 22:02:21
合計ジャッジ時間 5,528 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 29
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

<>;
@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