結果
問題 | No.414 衝動 |
ユーザー |
![]() |
提出日時 | 2016-08-26 22:25:49 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 5 ms / 1,000 ms |
コード長 | 122 bytes |
コンパイル時間 | 468 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-15 09:00:57 |
合計ジャッジ時間 | 1,135 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
外部呼び出し有り |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 13 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
@a=`factor`=~/ \d+/g;if(@a==0){print"1 1";}elsif(@a==1){print"1@a";}else{print eval(join"*",@a[1..$#a]),$a[0];}