Submission #402372

---

Source Code Expand

#!/usr/local/bin/perl

use strict;

my @lines = <STDIN>;
my $r; my $k; my $c;

if($lines[0] =~ /(\d+)\s+(\d+)\s+(\d+)/) {
	$r = $1; $c = $2; $k = $3;
}

my @C; my @R;

for(my $i=2;$i<@lines;$i++) {
	if($lines[$i] =~ /(\d+)\s+(\d+)/) {
		$R[$1] += 1;
		$C[$2] += 1;
	}
}

my $ans = 0;

for(my $i=2;$i<@lines;$i++) {
	if($lines[$i] =~ /(\d+)\s+(\d+)/) {
		if($R[$1] + $C[$2] - 1 == $k) {
			$ans++;
		} elsif($R[$1] + $C[$2] == $k) {
			$ans--;
		}
	}
}

#my @grep_C = grep { $_ <= $k } @C;
#my @grep_R = grep { $_ <= $k } @R;

#my @sort_C = sort {$a <=> $b} @grep_C;
#my @sort_R = sort {$a <=> $b} @grep_R;

#for(my $i=0;$i<@sort_C;$i++) {
for(my $i=0;$i<@C;$i++) {
#	next if($sort_R[$#sort_R] + $sort_C[$i] < $k);
#	for(my $j=0;$j<@sort_R;$j++) {
	for(my $j=0;$j<@R;$j++) {
#		last if($k < $sort_R[$j] + $sort_C[$i]);
#		$ans++ if($sort_R[$j] + $sort_C[$i] == $k);
		$ans++ if($R[$j] + $C[$i] == $k);
	}
}

print $ans,"\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result