From b83ae6bf5ef619abe85510b5810b8b7e84a5224f Mon Sep 17 00:00:00 2001
From: Bob Lied <boblied+github@gmail.com>
Date: Tue, 5 Dec 2023 16:30:41 -0600
Subject: Make random number picks unique

---
 challenge-246/bob-lied/perl/ch-1.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'challenge-246')

diff --git a/challenge-246/bob-lied/perl/ch-1.pl b/challenge-246/bob-lied/perl/ch-1.pl
index 394f4db426..07c2d59d52 100644
--- a/challenge-246/bob-lied/perl/ch-1.pl
+++ b/challenge-246/bob-lied/perl/ch-1.pl
@@ -10,4 +10,12 @@
 #=============================================================================
 
 use feature qw/say/;
-say for sort { $a <=> $b} map { int(rand(49)) + 1 } 1..6;
+
+# Choose six numbers without repeats
+my %seen;
+while ( scalar(%seen) < 6 )
+{
+    $seen{ int(rand(49)) + 1 } = 1;
+}
+
+say for sort { $a <=> $b } keys %seen;
-- 
cgit 


From 8c83d2379bec6a8df0291d5d2831ebbfe3051e41 Mon Sep 17 00:00:00 2001
From: Bob Lied <boblied+github@gmail.com>
Date: Tue, 5 Dec 2023 16:45:33 -0600
Subject: Correct size of hash

---
 challenge-246/bob-lied/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'challenge-246')

diff --git a/challenge-246/bob-lied/perl/ch-1.pl b/challenge-246/bob-lied/perl/ch-1.pl
index 07c2d59d52..56b1ae4e26 100644
--- a/challenge-246/bob-lied/perl/ch-1.pl
+++ b/challenge-246/bob-lied/perl/ch-1.pl
@@ -13,7 +13,7 @@ use feature qw/say/;
 
 # Choose six numbers without repeats
 my %seen;
-while ( scalar(%seen) < 6 )
+while ( scalar(keys %seen) < 6 )
 {
     $seen{ int(rand(49)) + 1 } = 1;
 }
-- 
cgit