結果
問題 | No.1470 Mex Sum |
ユーザー |
![]() |
提出日時 | 2021-04-09 21:29:53 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 370 ms / 2,000 ms |
コード長 | 186 bytes |
コンパイル時間 | 126 ms |
コンパイル使用メモリ | 6,016 KB |
実行使用メモリ | 46,208 KB |
最終ジャッジ日時 | 2024-06-25 04:14:39 |
合計ジャッジ時間 | 15,441 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 49 |
コンパイルメッセージ
Name "main::N" used only once: possible typo at Main.pl line 1. Main.pl syntax OK
ソースコード
$N=<>;++$_[$_<=2?$_:3]for glob<>;for$a(1..3){for$b($a..3){if($a==$b){$%+=$_[$a]*($_[$a]-1)/2*($a==1?2:1)}else{$%+=$_[$a]*$_[$b]*($a==1?$b==2?3:2:1)}}}print$%,$/