Submission #74135670

Source Code Expand

Copy
#!/use/bin/perl
use strict;
use warnings;
my ($N, $M) = split(/\s+/, <STDIN>);
my %used = ();
my $ans = 0;
for (my $i = 0; $i < $M; $i++) {
  my ($R, $C) = split(/\s+/, <STDIN>);
  my $k0 = sprintf("%d,%d", $R, $C);
  my $k1 = sprintf("%d,%d", $R, $C + 1);
  my $k2 = sprintf("%d,%d", $R + 1, $C);
  my $k3 = sprintf("%d,%d", $R + 1, $C + 1);
  unless ($used{$k0} || $used{$k1} || $used{$k2} || $used{$k3}) {
    $ans++;
    $used{$k0} = 1;
    $used{$k1} = 1;
    $used{$k2} = 1;
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
#!/use/bin/perl

use strict;
use warnings;

my ($N, $M) = split(/\s+/, <STDIN>);

my %used = ();
my $ans = 0;

for (my $i = 0; $i < $M; $i++) {
	my ($R, $C) = split(/\s+/, <STDIN>);
	my $k0 = sprintf("%d,%d", $R, $C);
	my $k1 = sprintf("%d,%d", $R, $C + 1);
	my $k2 = sprintf("%d,%d", $R + 1, $C);
	my $k3 = sprintf("%d,%d", $R + 1, $C + 1);
	unless ($used{$k0} || $used{$k1} || $used{$k2} || $used{$k3}) {
		$ans++;
		$used{$k0} = 1;
		$used{$k1} = 1;
		$used{$k2} = 1;
		$used{$k3} = 1;
	}
}

print "$ans\n";

Submission Info

Submission Time
Task C - 2x2 Placing
User mikecat
Language Perl (perl 5.38.2)
Score 300
Code Size 537 Byte
Status AC
Exec Time 743 ms
Memory 126344 KiB

Compile Error

Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 3
AC × 36
Set Name Test Cases
Sample 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.txt
All 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.txt, 01_random_00.txt, 01_random_01.txt, 01_random_02.txt, 01_random_03.txt, 01_random_04.txt, 01_random_05.txt, 01_random_06.txt, 01_random_07.txt, 01_random_08.txt, 01_random_09.txt, 01_random_10.txt, 01_random_11.txt, 02_random2_00.txt, 02_random2_01.txt, 02_random2_02.txt, 02_random2_03.txt, 02_random2_04.txt, 02_random2_05.txt, 02_random2_06.txt, 02_random2_07.txt, 02_random2_08.txt, 02_random2_09.txt, 02_random2_10.txt, 02_random2_11.txt, 02_random2_12.txt, 02_random2_13.txt, 02_random2_14.txt, 02_random2_15.txt, 03_handmade_00.txt, 03_handmade_01.txt, 03_handmade_02.txt, 03_handmade_03.txt, 03_handmade_04.txt
Case Name Status Exec Time Memory
00_sample_00.txt AC 3 ms 5832 KiB
00_sample_01.txt AC 3 ms 5664 KiB
00_sample_02.txt AC 3 ms 5896 KiB
01_random_00.txt AC 55 ms 5656 KiB
01_random_01.txt AC 131 ms 5736 KiB
01_random_02.txt AC 115 ms 5720 KiB
01_random_03.txt AC 142 ms 6152 KiB
01_random_04.txt AC 98 ms 26524 KiB
01_random_05.txt AC 162 ms 8628 KiB
01_random_06.txt AC 351 ms 71420 KiB
01_random_07.txt AC 656 ms 122048 KiB
01_random_08.txt AC 299 ms 66248 KiB
01_random_09.txt AC 604 ms 125892 KiB
01_random_10.txt AC 100 ms 27936 KiB
01_random_11.txt AC 743 ms 126156 KiB
02_random2_00.txt AC 668 ms 126344 KiB
02_random2_01.txt AC 642 ms 125756 KiB
02_random2_02.txt AC 720 ms 125124 KiB
02_random2_03.txt AC 648 ms 124476 KiB
02_random2_04.txt AC 693 ms 123384 KiB
02_random2_05.txt AC 687 ms 122304 KiB
02_random2_06.txt AC 681 ms 120936 KiB
02_random2_07.txt AC 659 ms 118660 KiB
02_random2_08.txt AC 635 ms 116328 KiB
02_random2_09.txt AC 584 ms 96280 KiB
02_random2_10.txt AC 512 ms 90708 KiB
02_random2_11.txt AC 516 ms 84612 KiB
02_random2_12.txt AC 447 ms 74052 KiB
02_random2_13.txt AC 403 ms 61340 KiB
02_random2_14.txt AC 275 ms 36072 KiB
02_random2_15.txt AC 169 ms 6340 KiB
03_handmade_00.txt AC 131 ms 5692 KiB
03_handmade_01.txt AC 377 ms 66036 KiB
03_handmade_02.txt AC 394 ms 65952 KiB
03_handmade_03.txt AC 360 ms 65956 KiB
03_handmade_04.txt AC 289 ms 43072 KiB
Facebook Twitter Telegram Share

2026-03-15 (Sun)
07:45:32 +09:00

More…