From b83ae6bf5ef619abe85510b5810b8b7e84a5224f Mon Sep 17 00:00:00 2001 From: Bob Lied 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 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 From 56ed453655d987a9506a5f559e604bd211e79edf Mon Sep 17 00:00:00 2001 From: Roger Bell_West Date: Mon, 11 Dec 2023 10:21:42 +0000 Subject: RogerBW blog post for challenge no. 246 --- challenge-246/roger-bell-west/blog.txt | 1 + 1 file changed, 1 insertion(+) create mode 100644 challenge-246/roger-bell-west/blog.txt (limited to 'challenge-246') diff --git a/challenge-246/roger-bell-west/blog.txt b/challenge-246/roger-bell-west/blog.txt new file mode 100644 index 0000000000..0f5c0a56cb --- /dev/null +++ b/challenge-246/roger-bell-west/blog.txt @@ -0,0 +1 @@ +https://blog.firedrake.org/archive/2023/12/The_Weekly_Challenge_246__Linear_49.html -- cgit From e292b631e646b149bd7ecf5739f4325d15db7111 Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Tue, 12 Dec 2023 20:42:10 -0500 Subject: solution for 246.1 in Perl --- challenge-246/adam-russell/perl/ch-1.pl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 challenge-246/adam-russell/perl/ch-1.pl (limited to 'challenge-246') diff --git a/challenge-246/adam-russell/perl/ch-1.pl b/challenge-246/adam-russell/perl/ch-1.pl new file mode 100644 index 0000000000..b462c6e959 --- /dev/null +++ b/challenge-246/adam-russell/perl/ch-1.pl @@ -0,0 +1,22 @@ +use v5.38; +## +# 6 out of 49 is a German lottery. +# Write a script that outputs six unique random integers from the range 1 to 49. +## +package SixOfFourtyNine{ + use Math::Random::Secure q/irand/; + sub pick_six{ + my @six; + { + my $r = irand(49) + 1; + push @six, $r if 0 == grep {$_ == $r} @six; + redo unless @six == 6; + } + return sort {$a <=> $b} @six; + } + +} + +package main{ + say join q/, /, SixOfFourtyNine::pick_six; +} -- cgit From e52bf5ae93c76fc692865d4ac43510aa9540aca4 Mon Sep 17 00:00:00 2001 From: Simon Green Date: Sun, 17 Dec 2023 23:55:35 +1100 Subject: Did not complete challenge 246 --- challenge-246/sgreen/README.md | 3 --- 1 file changed, 3 deletions(-) delete mode 100644 challenge-246/sgreen/README.md (limited to 'challenge-246') diff --git a/challenge-246/sgreen/README.md b/challenge-246/sgreen/README.md deleted file mode 100644 index fb592c5c30..0000000000 --- a/challenge-246/sgreen/README.md +++ /dev/null @@ -1,3 +0,0 @@ -# The Weekly Challenge 244 - -Blog: [Weekly Challenge 244](https://dev.to/simongreennet/weekly-challenge-244-jim) -- cgit