#200504 (Perl) No.390 最長の数列 - yukicoder

提出ソース

結果

問題	No.390 最長の数列
ユーザー	%20
提出日時	2017-08-28 01:32:02
言語	Perl (5.40.0)
結果	AC
実行時間	3,956 ms / 5,000 ms
コード長	133 bytes
コンパイル時間	262 ms
コンパイル使用メモリ	6,824 KB
実行使用メモリ	86,656 KB
最終ジャッジ日時	2024-11-06 07:08:39
合計ジャッジ時間	13,017 ms
ジャッジサーバーID （参考情報）	judge5 / judge3

このコードへのチャレンジ
（要ログイン）

ファイルパターン	結果
sample	AC * 4
other	AC * 15

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

<>;$/=$";
for$x(sort{$a-$b}<>){
	++$d[$x]>$%and$%=$d[$x];
	for($i=2*$x;$i<=1e6;$i+=$x){
		$d[$x]>$d[$i]and$d[$i]=$d[$x]
	}
}
print$%

0