diff options
| author | Bob Lied <boblied+github@gmail.com> | 2023-12-05 16:30:41 -0600 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2023-12-05 16:30:41 -0600 |
| commit | b83ae6bf5ef619abe85510b5810b8b7e84a5224f (patch) | |
| tree | 900fc852234eb857ba69bb778d5345396f391e63 /challenge-246 | |
| parent | 948bc468fd091b727dc5046eb86a2eb0a014a089 (diff) | |
| download | perlweeklychallenge-club-b83ae6bf5ef619abe85510b5810b8b7e84a5224f.tar.gz perlweeklychallenge-club-b83ae6bf5ef619abe85510b5810b8b7e84a5224f.tar.bz2 perlweeklychallenge-club-b83ae6bf5ef619abe85510b5810b8b7e84a5224f.zip | |
Make random number picks unique
Diffstat (limited to 'challenge-246')
| -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..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; |