結果
| 問題 | No.60 魔法少女 |
| ユーザー |
 tails
|
| 提出日時 | 2017-02-23 10:17:29 |
| 言語 | Perl (5.38.2) |
| 結果 |
AC
|
| 実行時間 | 2,239 ms / 5,000 ms |
| コード長 | 212 bytes |
| コンパイル時間 | 137 ms |
| コンパイル使用メモリ | 5,248 KB |
| 実行使用メモリ | 241,152 KB |
| 最終ジャッジ日時 | 2024-06-10 20:46:13 |
| 合計ジャッジ時間 | 27,918 ms |
|
ジャッジサーバーID （参考情報） |
judge5 / judge1 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | AC | 1,430 ms
210,176 KB |
| testcase_01 | AC | 1,425 ms
210,316 KB |
| testcase_02 | AC | 1,527 ms
210,288 KB |
| testcase_03 | AC | 1,810 ms
210,432 KB |
| testcase_04 | AC | 1,936 ms
225,408 KB |
| testcase_05 | AC | 1,809 ms
229,632 KB |
| testcase_06 | AC | 2,202 ms
240,384 KB |
| testcase_07 | AC | 2,034 ms
232,192 KB |
| testcase_08 | AC | 1,787 ms
224,724 KB |
| testcase_09 | AC | 1,605 ms
216,260 KB |
| testcase_10 | AC | 2,178 ms
238,692 KB |
| testcase_11 | AC | 1,484 ms
213,760 KB |
| testcase_12 | AC | 1,700 ms
223,704 KB |
| testcase_13 | AC | 2,239 ms
241,152 KB |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$e[@e]=<>for 1..<>;map{for$b($_!~('(\S+) 'x4),$4+1){$m{$1+$_,$2+$b}+=!$_^!$b?-$':$' for$3+1,0}}<>;for$y(@i=-500..500){$s=0;$$_{$y}+=$$_{$y-1}+($s=$m{$_,$y}+=$s)for@i;}($x,$y,$h)=split,$\+=$-=$h-$$x{$y}for@e;print