diff options
| -rwxr-xr-x | challenge-075/mohammad-anwar/perl/ch-1.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-075/mohammad-anwar/perl/ch-1.t b/challenge-075/mohammad-anwar/perl/ch-1.t index c2d32443b5..18ad74f6b0 100755 --- a/challenge-075/mohammad-anwar/perl/ch-1.t +++ b/challenge-075/mohammad-anwar/perl/ch-1.t @@ -33,7 +33,7 @@ sub coins_sum { my $matrix; # Sum of 0 can be achieved in one possible way. - $matrix->[$_][0] = 1 for (0 .. $size+1); + $matrix->[$_][0] = 1 for (0 .. $size); foreach my $i (0 .. $size) { |