diff options
| -rwxr-xr-x | challenge-252/robbie-hatley/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-252/robbie-hatley/perl/ch-2.pl b/challenge-252/robbie-hatley/perl/ch-2.pl index 4edb5e4b68..eb4bb4dfa3 100755 --- a/challenge-252/robbie-hatley/perl/ch-2.pl +++ b/challenge-252/robbie-hatley/perl/ch-2.pl @@ -77,7 +77,7 @@ sub is_pos_int ($x) { return $x =~ m/^[1-9]\d*$/; } -# Return array of unique ints adding to $n: +# Return array of $n unique ints adding to 0: sub usz ($n) { my @a = (); push @a, -int($n/2)..-1; |