Submission #402364
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++) { # next if($sort_R[$#sort_R] + $sort_C[$i] < $k); for(my $j=0;$j<@sort_R;$j++) { # last if($k < $sort_R[$j] + $sort_C[$i]); $ans++ if($sort_R[$j] + $sort_C[$i] == $k); } } print $ans,"\n";
Submission Info
Submission Time | |
---|---|
Task | C - 収集王 |
User | mmtsk |
Language | Perl (5.14.2) |
Score | 0 |
Code Size | 877 Byte |
Status | RE |
Exec Time | 30 ms |
Memory | 1056 KB |
Compile Error
Global symbol "@sort_C" requires explicit package name at ./Main.pl line 39. Global symbol "@sort_R" requires explicit package name at ./Main.pl line 41. Global symbol "@sort_R" requires explicit package name at ./Main.pl line 43. Global symbol "@sort_C" requires explicit package name at ./Main.pl line 43. ./Main.pl had compilation errors.
Judge Result
Set Name | Sample | Subtask1 | Subtask2 | ||||||
---|---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 30 | 0 / 70 | ||||||
Status |
|
|
|
Set Name | Test Cases |
---|---|
Sample | subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt |
Subtask1 | subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt, subtask1-01.txt, subtask1-02.txt, subtask1-03.txt, subtask1-04.txt, subtask1-05.txt, subtask1-06.txt, subtask1-07.txt, subtask1-08.txt, subtask1-09.txt, subtask1-10.txt, subtask1-11.txt, subtask1-12.txt, subtask1-13.txt, subtask1-14.txt, subtask1-15.txt |
Subtask2 | subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt, subtask1-01.txt, subtask1-02.txt, subtask1-03.txt, subtask1-04.txt, subtask1-05.txt, subtask1-06.txt, subtask1-07.txt, subtask1-08.txt, subtask1-09.txt, subtask1-10.txt, subtask1-11.txt, subtask1-12.txt, subtask1-13.txt, subtask1-14.txt, subtask1-15.txt, subtask2-01.txt, subtask2-02.txt, subtask2-03.txt, subtask2-04.txt, subtask2-05.txt, subtask2-06.txt, subtask2-07.txt, subtask2-08.txt, subtask2-09.txt, subtask2-10.txt, subtask2-11.txt, subtask2-12.txt, subtask2-13.txt, subtask2-14.txt, subtask2-15.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
subtask0-sample01.txt | RE | 26 ms | 928 KB |
subtask0-sample02.txt | RE | 25 ms | 1044 KB |
subtask0-sample03.txt | RE | 26 ms | 1052 KB |
subtask1-01.txt | RE | 26 ms | 1044 KB |
subtask1-02.txt | RE | 26 ms | 1048 KB |
subtask1-03.txt | RE | 27 ms | 920 KB |
subtask1-04.txt | RE | 27 ms | 924 KB |
subtask1-05.txt | RE | 27 ms | 924 KB |
subtask1-06.txt | RE | 28 ms | 988 KB |
subtask1-07.txt | RE | 27 ms | 1052 KB |
subtask1-08.txt | RE | 27 ms | 920 KB |
subtask1-09.txt | RE | 27 ms | 1044 KB |
subtask1-10.txt | RE | 30 ms | 1052 KB |
subtask1-11.txt | RE | 27 ms | 1044 KB |
subtask1-12.txt | RE | 28 ms | 988 KB |
subtask1-13.txt | RE | 27 ms | 1048 KB |
subtask1-14.txt | RE | 27 ms | 1048 KB |
subtask1-15.txt | RE | 27 ms | 1040 KB |
subtask2-01.txt | RE | 29 ms | 1048 KB |
subtask2-02.txt | RE | 29 ms | 988 KB |
subtask2-03.txt | RE | 27 ms | 928 KB |
subtask2-04.txt | RE | 27 ms | 924 KB |
subtask2-05.txt | RE | 27 ms | 932 KB |
subtask2-06.txt | RE | 26 ms | 928 KB |
subtask2-07.txt | RE | 25 ms | 1052 KB |
subtask2-08.txt | RE | 25 ms | 1048 KB |
subtask2-09.txt | RE | 26 ms | 1056 KB |
subtask2-10.txt | RE | 26 ms | 1056 KB |
subtask2-11.txt | RE | 26 ms | 1052 KB |
subtask2-12.txt | RE | 26 ms | 1048 KB |
subtask2-13.txt | RE | 25 ms | 1048 KB |
subtask2-14.txt | RE | 26 ms | 1056 KB |
subtask2-15.txt | RE | 26 ms | 932 KB |