結果

問題 No.1352 Three Coins
コンテスト
ユーザー tails
提出日時 2021-01-19 19:50:14
言語 Perl
(5.40.0)
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 110 bytes
コンパイル時間 720 ms
コンパイル使用メモリ 288,896 KB
実行使用メモリ 482,048 KB
最終ジャッジ日時 2024-12-25 08:03:17
合計ジャッジ時間 73,735 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample TLE * 2
other AC * 17 TLE * 17
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

($a,$b,$c)=glob<>;
$d[0]=1;
@a=grep{$d[$_]?($d[$_+$a]=$d[$_+$b]=$d[$_+$c]=1,0):1}0..4e6;
print@a<2e6?0+@a:INF
0