diff options
| author | Bob Lied <boblied+github@gmail.com> | 2023-12-11 07:17:06 -0600 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2023-12-11 07:17:06 -0600 |
| commit | 0c4e02855a46a9e371cafdbe1bf33cc514468d90 (patch) | |
| tree | a20fff7a4be2f79171a25e78e47b89785032ae4d | |
| parent | 98df168725aa587bd4db1e24018dae1ca77b29da (diff) | |
| parent | 8c83d2379bec6a8df0291d5d2831ebbfe3051e41 (diff) | |
| download | perlweeklychallenge-club-0c4e02855a46a9e371cafdbe1bf33cc514468d90.tar.gz perlweeklychallenge-club-0c4e02855a46a9e371cafdbe1bf33cc514468d90.tar.bz2 perlweeklychallenge-club-0c4e02855a46a9e371cafdbe1bf33cc514468d90.zip | |
Week 246 update for selecting unique numbers
| -rw-r--r-- | challenge-246/bob-lied/perl/ch-1.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/challenge-246/bob-lied/perl/ch-1.pl b/challenge-246/bob-lied/perl/ch-1.pl index 394f4db426..56b1ae4e26 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(keys %seen) < 6 ) +{ + $seen{ int(rand(49)) + 1 } = 1; +} + +say for sort { $a <=> $b } keys %seen; |