結果
問題 | No.355 数当てゲーム(2) |
ユーザー |
![]() |
提出日時 | 2016-04-01 22:36:40 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 97 ms / 2,000 ms |
コード長 | 358 bytes |
コンパイル時間 | 268 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 25,580 KB |
平均クエリ数 | 5.44 |
最終ジャッジ日時 | 2024-07-16 23:08:16 |
合計ジャッジ時間 | 5,662 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 52 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$|=1; while(1){ l1: { $a=sprintf "%04d",int rand 10000; redo l1 if $a=~/(.).*\1/; @a=$a=~/./g; for(@h){ @b=/./g; $u=$v=0; for$i(0..3){ $u+=$a[$i]==$b[$i]; for$j(0..3){ $v+=$i!=$j&&$a[$i]==$b[$j]; } } redo l1 if $u!=$b[4] || $v!=$b[5]; } print"@a\n"; $r=<>; $r=~s/\s//g; exit if $r==40; push@h,"$a$r"; } }