結果
| 問題 | No.572 妖精の演奏 |
| ユーザー |
 tails
|
| 提出日時 | 2017-10-10 15:36:02 |
| 言語 | Perl (5.38.2) |
| 結果 |
AC
|
| 実行時間 | 1,750 ms / 2,000 ms |
| コード長 | 173 bytes |
| コンパイル時間 | 837 ms |
| コンパイル使用メモリ | 6,944 KB |
| 実行使用メモリ | 9,344 KB |
| 最終ジャッジ日時 | 2024-11-17 08:25:03 |
| 合計ジャッジ時間 | 7,533 ms |
|
ジャッジサーバーID （参考情報） |
judge3 / judge2 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | AC | 30 ms
6,820 KB |
| testcase_01 | AC | 21 ms
6,820 KB |
| testcase_02 | AC | 7 ms
6,820 KB |
| testcase_03 | AC | 11 ms
6,820 KB |
| testcase_04 | AC | 19 ms
6,820 KB |
| testcase_05 | AC | 74 ms
6,820 KB |
| testcase_06 | AC | 112 ms
6,816 KB |
| testcase_07 | AC | 44 ms
6,816 KB |
| testcase_08 | AC | 54 ms
6,816 KB |
| testcase_09 | AC | 72 ms
6,816 KB |
| testcase_10 | AC | 530 ms
7,040 KB |
| testcase_11 | AC | 1,188 ms
8,192 KB |
| testcase_12 | AC | 1,359 ms
8,704 KB |
| testcase_13 | AC | 1,750 ms
9,344 KB |
| testcase_14 | AC | 288 ms
6,816 KB |
| testcase_15 | AC | 351 ms
6,816 KB |
| testcase_16 | AC | 229 ms
6,816 KB |
| testcase_17 | AC | 376 ms
6,816 KB |
| testcase_18 | AC | 43 ms
6,816 KB |
| testcase_19 | AC | 8 ms
6,820 KB |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub f{my($c,$x,$y,$z)=@_;$$c[$y][$x]//=do{$z+=$-=f($c>>1,$x,$_)+f($c+1>>1,$_,$y)-$z for@m;$z}}$n=<>-1;@m=0..<>-1;@1=map[glob],<>;map{//;$%+=$-=f($n,$_,$')-$%for@m}@m;print$%