結果

問題 No.1015 おつりは要らないです
ユーザー tailstails
提出日時 2020-04-16 10:02:45
言語 Perl
(5.38.2)
結果
AC  
実行時間 890 ms / 2,000 ms
コード長 198 bytes
コンパイル時間 843 ms
コンパイル使用メモリ 76,784 KB
実行使用メモリ 126,820 KB
最終ジャッジ日時 2024-11-18 07:20:00
合計ジャッジ時間 24,279 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 294 ms
116,040 KB
testcase_01 AC 293 ms
116,012 KB
testcase_02 AC 291 ms
116,144 KB
testcase_03 AC 298 ms
116,024 KB
testcase_04 AC 295 ms
116,380 KB
testcase_05 AC 289 ms
116,076 KB
testcase_06 AC 301 ms
116,052 KB
testcase_07 AC 298 ms
116,108 KB
testcase_08 AC 286 ms
116,008 KB
testcase_09 AC 292 ms
116,028 KB
testcase_10 AC 855 ms
126,088 KB
testcase_11 AC 865 ms
126,264 KB
testcase_12 AC 844 ms
125,840 KB
testcase_13 AC 876 ms
126,020 KB
testcase_14 AC 890 ms
126,820 KB
testcase_15 AC 867 ms
125,764 KB
testcase_16 AC 872 ms
126,020 KB
testcase_17 AC 889 ms
126,228 KB
testcase_18 AC 868 ms
125,932 KB
testcase_19 AC 874 ms
125,956 KB
testcase_20 AC 760 ms
125,752 KB
testcase_21 AC 794 ms
125,676 KB
testcase_22 AC 750 ms
125,616 KB
testcase_23 AC 738 ms
125,112 KB
testcase_24 AC 776 ms
125,788 KB
testcase_25 AC 773 ms
125,652 KB
testcase_26 AC 806 ms
125,508 KB
testcase_27 AC 752 ms
125,484 KB
testcase_28 AC 759 ms
125,416 KB
testcase_29 AC 769 ms
125,772 KB
testcase_30 AC 294 ms
116,108 KB
testcase_31 AC 538 ms
125,648 KB
testcase_32 AC 543 ms
125,124 KB
testcase_33 AC 322 ms
99,912 KB
testcase_34 AC 292 ms
116,040 KB
testcase_35 AC 296 ms
116,040 KB
testcase_36 AC 290 ms
116,020 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::n" used only once: possible typo at Main.pl line 1.
Name "main::Z" used only once: possible typo at Main.pl line 1.
Name "main::X" used only once: possible typo at Main.pl line 1.
Name "main::Y" 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