結果
問題 | No.909 たぴの配置 |
ユーザー | tails |
提出日時 | 2019-10-18 22:42:59 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 194 ms / 3,000 ms |
コード長 | 176 bytes |
コンパイル時間 | 259 ms |
コンパイル使用メモリ | 5,332 KB |
実行使用メモリ | 48,460 KB |
最終ジャッジ日時 | 2023-09-08 00:41:52 |
合計ジャッジ時間 | 4,561 ms |
ジャッジサーバーID (参考情報) |
judge14 / judge15 |
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 3 ms
4,644 KB |
testcase_01 | AC | 2 ms
4,756 KB |
testcase_02 | AC | 3 ms
4,660 KB |
testcase_03 | AC | 2 ms
4,508 KB |
testcase_04 | AC | 2 ms
4,560 KB |
testcase_05 | AC | 186 ms
46,944 KB |
testcase_06 | AC | 191 ms
48,308 KB |
testcase_07 | AC | 175 ms
45,192 KB |
testcase_08 | AC | 189 ms
46,900 KB |
testcase_09 | AC | 194 ms
48,460 KB |
testcase_10 | AC | 180 ms
45,120 KB |
testcase_11 | AC | 176 ms
44,228 KB |
testcase_12 | AC | 189 ms
46,820 KB |
testcase_13 | AC | 193 ms
48,320 KB |
testcase_14 | AC | 180 ms
45,120 KB |
testcase_15 | AC | 177 ms
44,232 KB |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$n=<>; @x=split/ /,<>; @y=split/ /,<>; $d=2e6; for(0..$n-1){ $a=$x[$_]+$y[$_]; $d=$d<$a?$d:$a; } print $d,$/; print 0,$/; for(0..$n-1){ print $-=$d-$y[$_],$/; } print $d,$/;