結果
問題 | No.265 数学のテスト |
ユーザー |
![]() |
提出日時 | 2015-08-07 23:18:33 |
言語 | Perl (5.40.0) |
結果 |
TLE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 210 bytes |
コンパイル時間 | 147 ms |
コンパイル使用メモリ | 6,940 KB |
実行使用メモリ | 19,392 KB |
最終ジャッジ日時 | 2024-07-18 05:21:36 |
合計ジャッジ時間 | 6,453 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | -- * 4 |
other | TLE * 1 -- * 31 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
<>;$d=<>;$_=<>;s/[*d]//g;s/(x+)(\d+)/$2$1/g;0whiles"\{\+*(\d*)x(x*)\+*"($1||1)*(1+length$2).$2.'+{'"ge||s"\{\+*(\d+)\+*"{"g||s"\{\+*\}""g;@a=(0)x($d+1);s"(\d*)(x*)"$a[$2=~y/x//]+=$1||$&&&1"ge;print"@a"