From 18906c0e06d68c2efa51608b71772fb1216ea3fa Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Sun, 21 Jan 2024 17:37:56 -0500
Subject: srand should only be called once per process

---
 challenge-252/adam-russell/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;   
-- 
cgit