結果
問題 | No.1673 Lamps on a line |
ユーザー | neko_the_shadow |
提出日時 | 2021-09-11 01:01:43 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 381 ms / 2,000 ms |
コード長 | 544 bytes |
コンパイル時間 | 557 ms |
コンパイル使用メモリ | 5,216 KB |
実行使用メモリ | 29,348 KB |
最終ジャッジ日時 | 2023-09-03 16:00:33 |
合計ジャッジ時間 | 3,467 ms |
ジャッジサーバーID (参考情報) |
judge13 / judge15 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 6 ms
5,028 KB |
testcase_01 | AC | 5 ms
5,136 KB |
testcase_02 | AC | 108 ms
5,028 KB |
testcase_03 | AC | 109 ms
4,904 KB |
testcase_04 | AC | 186 ms
5,112 KB |
testcase_05 | AC | 15 ms
5,148 KB |
testcase_06 | AC | 165 ms
4,984 KB |
testcase_07 | AC | 205 ms
23,376 KB |
testcase_08 | AC | 27 ms
17,880 KB |
testcase_09 | AC | 267 ms
8,348 KB |
testcase_10 | AC | 292 ms
16,248 KB |
testcase_11 | AC | 47 ms
17,196 KB |
testcase_12 | AC | 381 ms
29,348 KB |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; use feature qw/state/; sub output { print "@_\n"; } sub input { state @que; if (@que == 0) { chomp(my $line = <>); push @que, split / /, $line; } return shift @que; } sub main { my $n = input; my $q = input; my @d = (0) x $n; my $c = 0; foreach (1..$q) { my $l = input - 1; my $r = input - 1; foreach my $i ($l..$r) { $d[$i] = abs($d[$i]-1); $d[$i]==0 ? $c-- : $c++; } output $c; } } main;