結果
問題 | No.24 数当てゲーム |
ユーザー |
![]() |
提出日時 | 2020-07-25 07:30:05 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 4 ms / 5,000 ms |
コード長 | 493 bytes |
コンパイル時間 | 215 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-06-26 10:25:05 |
合計ジャッジ時間 | 644 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 10 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
# use strict;# use warnings;my %d;$d{$_} = 0 foreach 0 .. 9;<>;my $c = 0;while (<>) {chomp;my @x = split(/\s/);my @ds = @x[0 .. ($#x - 1)];my $b = $x[-1];if ($b eq 'YES') {$c++;foreach (@ds) {$d{$_}++ if exists($d{$_});}foreach (keys(%d)) {delete $d{$_} if $d{$_} < $c;}} else {delete $d{$_} foreach @ds;}last if scalar(keys(%d)) == 1;}print((keys(%d))[0], "\n");