結果
問題 | No.7 プライムナンバーゲーム |
ユーザー |
![]() |
提出日時 | 2017-05-11 16:09:01 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 1,400 ms / 5,000 ms |
コード長 | 134 bytes |
コンパイル時間 | 173 ms |
コンパイル使用メモリ | 5,888 KB |
実行使用メモリ | 6,272 KB |
最終ジャッジ日時 | 2024-10-01 15:59:27 |
合計ジャッジ時間 | 12,028 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 17 |
コンパイルメッセージ
Possible precedence problem on bitwise & operator at Main.pl line 4. Main.pl syntax OK
ソースコード
map{$i=$_;$_[$i+=$_]=1while$i<1e4}2..99; @_=grep!$_[$_],2..1e4; for$i(2..<>){ $d[$i]|=$i-$_>1&!$d[$i-$_]for@_ } print$d[-1]?Win:Lose