結果

問題 No.24 数当てゲーム
コンテスト
ユーザー pessimist
提出日時 2026-01-18 06:21:33
言語 Raku
(rakudo v2025.12)
結果
AC  
実行時間 349 ms / 5,000 ms
コード長 292 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 2,089 ms
コンパイル使用メモリ 150,320 KB
実行使用メモリ 150,056 KB
最終ジャッジ日時 2026-01-18 06:21:41
合計ジャッジ時間 6,346 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 10
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff #
raw source code 

my $n=get.Int;
my Set $se=(0..9).Set;
for ^$n {
  my @parts=get.words;
  my $r=@parts[*-1];
  my Set $a=@parts[0..*-2].map(*.Int).Set;
  if $r eq "YES" {
    $se = $se ∩ $a;
  } else{
    $se = $se (-) $a;
  }
}
+$se==1 or die "Assertion failed: Invalid input encountered";
say $se.keys[0];
0