結果

問題 No.1015 おつりは要らないです
ユーザー tailstails
提出日時 2020-04-16 10:02:45
言語 Perl
(5.38.2)
結果
AC  
実行時間 1,001 ms / 2,000 ms
コード長 198 bytes
コンパイル時間 702 ms
コンパイル使用メモリ 76,800 KB
実行使用メモリ 126,200 KB
最終ジャッジ日時 2024-04-29 06:13:51
合計ジャッジ時間 26,938 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 320 ms
115,968 KB
testcase_01 AC 317 ms
115,968 KB
testcase_02 AC 315 ms
115,968 KB
testcase_03 AC 315 ms
116,096 KB
testcase_04 AC 315 ms
115,968 KB
testcase_05 AC 317 ms
115,968 KB
testcase_06 AC 319 ms
115,968 KB
testcase_07 AC 313 ms
115,968 KB
testcase_08 AC 319 ms
115,968 KB
testcase_09 AC 317 ms
115,968 KB
testcase_10 AC 926 ms
125,936 KB
testcase_11 AC 947 ms
126,176 KB
testcase_12 AC 918 ms
125,680 KB
testcase_13 AC 934 ms
125,872 KB
testcase_14 AC 965 ms
126,200 KB
testcase_15 AC 927 ms
125,668 KB
testcase_16 AC 944 ms
125,980 KB
testcase_17 AC 1,001 ms
126,128 KB
testcase_18 AC 961 ms
125,848 KB
testcase_19 AC 968 ms
125,836 KB
testcase_20 AC 829 ms
125,584 KB
testcase_21 AC 828 ms
125,516 KB
testcase_22 AC 842 ms
125,456 KB
testcase_23 AC 827 ms
125,200 KB
testcase_24 AC 865 ms
125,720 KB
testcase_25 AC 831 ms
125,460 KB
testcase_26 AC 830 ms
125,460 KB
testcase_27 AC 827 ms
125,472 KB
testcase_28 AC 826 ms
125,452 KB
testcase_29 AC 847 ms
125,568 KB
testcase_30 AC 320 ms
116,224 KB
testcase_31 AC 573 ms
125,044 KB
testcase_32 AC 576 ms
125,048 KB
testcase_33 AC 349 ms
99,840 KB
testcase_34 AC 320 ms
115,968 KB
testcase_35 AC 318 ms
116,096 KB
testcase_36 AC 324 ms
115,968 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::X" used only once: possible typo at Main.pl line 1.
Name "main::n" used only once: possible typo at Main.pl line 1.
Name "main::Y" used only once: possible typo at Main.pl line 1.
Name "main::Z" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

sub f{(*v,$m)=@_;$v&&[$v-=($t=$v-($-=$v-int$_/$m))?$t+!++$a[$_-$t*$m]:1]}($n,$X,$Y,$Z)=glob<>;++$a[$_/1e3]for glob<>;map{f(Z,10)||f(Y,5)||f(X,1)||exit!print'No'while$a[$_]--}sort{1}0..1e6;print'Yes'
0