結果

問題 No.265 数学のテスト
ユーザー %20%20
提出日時 2017-06-02 21:19:29
言語 Perl
(5.38.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 179 bytes
コンパイル時間 113 ms
コンパイル使用メモリ 6,816 KB
最終ジャッジ日時 2024-11-24 11:34:31
合計ジャッジ時間 441 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、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.
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 # 

sub f{($k,$n,$d)=@_;$n<0or!$d?$a[$n]+=$k:f($n*$k,$n-1,$d-1)}<>;@a=(0)x(<>+1);$_=<>;s/\*//g;s/(x*)(\d)/+$2$1/g;s/\bx/1x/g;/d/?++$%:/}/?--$%:f$_,-1+length,$%for/d|\dx*|}/g;print"@a"
0