結果

問題 No.3 ビットすごろく
ユーザー %20%20
提出日時 2017-05-05 13:29:49
言語 Perl
(5.38.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 113 bytes
コンパイル時間 31 ms
コンパイル使用メモリ 6,944 KB
最終ジャッジ日時 2024-07-01 08:41:21
合計ジャッジ時間 365 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Bareword found where operator expected (Missing operator before "r"?) at Main.pl line 1, near "0or"
Unquoted string "r" may clash with future reserved word at Main.pl line 1.
Possible precedence problem on bitwise | operator at Main.pl line 1.
No digits found for octal literal at Main.pl line 1, near ">0or"
syntax error at Main.pl line 1, near "0or"
Main.pl had compilation errors.

ソースコード

diff # 

$1[@q=1]=$n+=<>;map{$_>$n|@$_>0or@$_=(0,@$q),@q=($_,@q)}($q=pop@q)-($==grep$q>>$_&1,0..13),$q+$=while@q;print$#$n
0