結果

問題 No.355 数当てゲーム(2)
ユーザー tails
提出日時 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

ソースコード

diff #

$|=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";
	}
}
0