結果

問題 No.816 Beautiful tuples
ユーザー kotatsugame
提出日時 2019-04-19 22:53:48
言語 Perl6
(rakudo 2019.07.1-303-g59e683f)
結果
AC  
実行時間 265 ms
コード長 70 Byte
コンパイル時間 1,095 ms
使用メモリ 77,252 KB
最終ジャッジ日時 2019-08-16 23:48:47

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
01.txt AC 260 ms
75,368 KB
02.txt AC 264 ms
76,964 KB
03.txt AC 262 ms
76,864 KB
04.txt AC 262 ms
77,224 KB
05.txt AC 259 ms
76,504 KB
06.txt AC 264 ms
76,500 KB
07.txt AC 265 ms
75,984 KB
08.txt AC 259 ms
76,324 KB
09.txt AC 262 ms
75,696 KB
10.txt AC 261 ms
76,572 KB
11.txt AC 261 ms
75,504 KB
12.txt AC 261 ms
77,252 KB
13.txt AC 261 ms
76,496 KB
14.txt AC 263 ms
77,048 KB
15.txt AC 260 ms
76,140 KB
テストケース一括ダウンロード
コンパイルメッセージ
Syntax OK

ソースコード

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