結果

問題 No.664 超能力者Aと株価予測
ユーザー tailstails
提出日時 2018-03-10 01:52:00
言語 Perl
(5.38.0)
結果
AC  
実行時間 1,605 ms / 4,000 ms
コード長 206 bytes
コンパイル時間 361 ms
コンパイル使用メモリ 5,424 KB
実行使用メモリ 5,484 KB
最終ジャッジ日時 2023-08-01 14:23:23
合計ジャッジ時間 7,014 ms
ジャッジサーバーID
(参考情報)
judge13 / judge14
このコードへのチャレンジ(β)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 15 ms
5,236 KB
testcase_01 AC 15 ms
5,064 KB
testcase_02 AC 36 ms
5,236 KB
testcase_03 AC 7 ms
5,116 KB
testcase_04 AC 7 ms
5,220 KB
testcase_05 AC 6 ms
5,184 KB
testcase_06 AC 163 ms
5,396 KB
testcase_07 AC 141 ms
5,288 KB
testcase_08 AC 840 ms
5,228 KB
testcase_09 AC 241 ms
5,216 KB
testcase_10 AC 809 ms
5,240 KB
testcase_11 AC 1,306 ms
5,484 KB
testcase_12 AC 1,605 ms
5,456 KB
testcase_13 AC 973 ms
5,372 KB
testcase_14 AC 16 ms
5,240 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::n" used only once: possible typo at Main.pl line 3.
Main.pl syntax OK

ソースコード

diff #

sub max{$_[0]=$_[$_[0]<$_[1]]}

($n,$m,$\)=glob<>;
$0[300]=$\;

map{
	for$i(0..$m-1){
		for$j(1..300){
			$j<$_?max($\,max(${$i+1}[300],int($$i[$j]/$j)*$_+$$i[$j]%$j)):max($$i[$_],$$i[$j]);
		}
	}
}<>;print
0