結果

問題 No.816 Beautiful tuples
ユーザー kotatsugame
提出日時 2019-04-19 22:53:48
言語 Perl6
(rakudo 2018.10-174-g10693d1)
結果
AC  
実行時間 248 ms
コード長 70 Byte
コンパイル時間 945 ms
使用メモリ 75,432 KB
最終ジャッジ日時 2019-06-06 03:34:50

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
01.txt AC 247 ms
75,236 KB
02.txt AC 244 ms
75,248 KB
03.txt AC 241 ms
75,240 KB
04.txt AC 247 ms
75,232 KB
05.txt AC 247 ms
75,304 KB
06.txt AC 245 ms
75,228 KB
07.txt AC 241 ms
75,272 KB
08.txt AC 244 ms
75,224 KB
09.txt AC 242 ms
75,216 KB
10.txt AC 246 ms
75,240 KB
11.txt AC 242 ms
75,248 KB
12.txt AC 247 ms
75,432 KB
13.txt AC 245 ms
75,212 KB
14.txt AC 248 ms
75,228 KB
15.txt AC 243 ms
75,204 KB
テストケース一括ダウンロード
コンパイルメッセージ
Syntax OK

ソースコード

diff #
say ($_=^3+1∖(@($_=+<<get.words)Xdiv($!=[gcd] @$_)))>1??-1!!$!*.pick
0