diff options
| author | Bob Lied <boblied+github@gmail.com> | 2023-12-05 16:45:33 -0600 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2023-12-05 16:45:33 -0600 |
| commit | 8c83d2379bec6a8df0291d5d2831ebbfe3051e41 (patch) | |
| tree | 4d7e7f0477bbb7bc58e138129cff1c59710ca8b8 | |
| parent | b83ae6bf5ef619abe85510b5810b8b7e84a5224f (diff) | |
| download | perlweeklychallenge-club-8c83d2379bec6a8df0291d5d2831ebbfe3051e41.tar.gz perlweeklychallenge-club-8c83d2379bec6a8df0291d5d2831ebbfe3051e41.tar.bz2 perlweeklychallenge-club-8c83d2379bec6a8df0291d5d2831ebbfe3051e41.zip | |
Correct size of hash
| -rw-r--r-- | challenge-246/bob-lied/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |