diff options
| -rw-r--r-- | challenge-252/adam-russell/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-252/adam-russell/perl/ch-2.pl b/challenge-252/adam-russell/perl/ch-2.pl index 92893abfa7..488877436a 100644 --- a/challenge-252/adam-russell/perl/ch-2.pl +++ b/challenge-252/adam-russell/perl/ch-2.pl @@ -3,8 +3,8 @@ use v5.38; # Given an integer, $n, write a script to find an array containing $n # unique integers such that they add up to zero. ## +srand(ord q/TWC/); sub rand_sum_zero{ - srand(ord q/TWC/); my $n = shift; my @r; my $x = int(rand($n * 5)) + 1; |