結果
問題 | No.297 カードの数式 |
ユーザー |
![]() |
提出日時 | 2015-11-06 23:11:44 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 5 ms / 1,000 ms |
コード長 | 462 bytes |
コンパイル時間 | 297 ms |
コンパイル使用メモリ | 5,248 KB |
実行使用メモリ | 5,504 KB |
最終ジャッジ日時 | 2024-12-26 02:14:18 |
合計ジャッジ時間 | 1,352 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 23 |
コンパイルメッセージ
Name "main::i" used only once: possible typo at Main.pl line 42. Main.pl syntax OK
ソースコード
<>;@b=@a=sort<>=~/\S/g;$y=0;while($a[0]eq'+'){++$p;shift@a;}while($a[0]eq'-'){++$m;shift@a;}while($m){$y-=shift@a;--$m;}while($p){$y+=shift@a;--$p;}$y+=join'',reverse@a;$z=$p=$m=0;while($b[0]eq'+'){++$p;shift@b;}while($b[0]eq'-'){++$m;shift@b;}if($m){while($p>=0){$z+=shift@b;--$p;}while($m>1){$z-=shift@b;--$m;}$z-=join'',reverse@b;}else{$c[$i++%($p+1)].=$_ for@b;$z+=$_ for@c;}print"$y $z"