結果

問題 No.133 カードゲーム
ユーザー yuruhiyayuruhiya
提出日時 2020-10-18 16:59:58
言語 Perl6
(rakudo 2020.06-7-gf1960ba)
結果
WA  
実行時間 -
コード長 95 Byte
コンパイル時間 239 ms
使用メモリ 106,372 KB
最終ジャッジ日時 2020-10-18 17:00:09
合計ジャッジ時間 10,998 ms
このコードへのチャレンジ(β)

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
testcase_00 AC 280 ms
96,320 KB
testcase_01 AC 279 ms
96,976 KB
testcase_02 AC 275 ms
96,428 KB
testcase_03 AC 274 ms
97,544 KB
testcase_04 AC 298 ms
97,984 KB
testcase_05 WA -
testcase_06 WA -
testcase_07 WA -
testcase_08 AC 298 ms
97,916 KB
testcase_09 AC 307 ms
97,944 KB
testcase_10 WA -
testcase_11 WA -
testcase_12 WA -
testcase_13 AC 275 ms
97,592 KB
testcase_14 AC 298 ms
97,636 KB
testcase_15 AC 312 ms
98,272 KB
testcase_16 WA -
testcase_17 AC 447 ms
106,364 KB
testcase_18 WA -
testcase_19 WA -
testcase_20 WA -
testcase_21 WA -
testcase_22 WA -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff #
get;$_=map {$_ <2*grep {[>] $_},[Z] $_},[X] (get.words xx 2)>>.permutations;say @$_.grep(?*)/$_
0