結果

問題 No.24 数当てゲーム
コンテスト
ユーザー pessimist
提出日時 2026-01-18 06:21:33
言語 Raku
(rakudo v2026.03)
コンパイル:
raku -c _filename_
実行:
raku _filename_
結果
AC  
実行時間 280 ms / 5,000 ms
+ 543µs
コード長 292 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 2,071 ms
コンパイル使用メモリ 147,712 KB
実行使用メモリ 150,784 KB
最終ジャッジ日時 2026-07-20 11:44:43
合計ジャッジ時間 7,173 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
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