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