diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-03-05 19:56:27 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-03-05 19:56:27 +0000 |
| commit | b8a8e4a6f319b191d5d38786fd7c55eda14a6575 (patch) | |
| tree | 23b9df67a547b9d6b4bea426c4ed5d3c5125e1a4 | |
| parent | 67c3eb984b684e9bc48cd7a2de9dc4487226e70c (diff) | |
| parent | 1353faf4b75655066f1933b265a2ee5cd7b0c257 (diff) | |
| download | perlweeklychallenge-club-b8a8e4a6f319b191d5d38786fd7c55eda14a6575.tar.gz perlweeklychallenge-club-b8a8e4a6f319b191d5d38786fd7c55eda14a6575.tar.bz2 perlweeklychallenge-club-b8a8e4a6f319b191d5d38786fd7c55eda14a6575.zip | |
Merge pull request #7662 from Firedrake/rogerbw-challenge-206-blog
RogerBW blog post for challenge no. 206 (and correction on Raku-2)
| -rw-r--r-- | challenge-206/roger-bell-west/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-206/roger-bell-west/raku/ch-2.p6 | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/challenge-206/roger-bell-west/blog.txt b/challenge-206/roger-bell-west/blog.txt new file mode 100644 index 0000000000..279a82c774 --- /dev/null +++ b/challenge-206/roger-bell-west/blog.txt @@ -0,0 +1 @@ +https://blog.firedrake.org/archive/2023/03/The_Weekly_Challenge_206__Array_Time_.html diff --git a/challenge-206/roger-bell-west/raku/ch-2.p6 b/challenge-206/roger-bell-west/raku/ch-2.p6 index dc1107631e..46314238c0 100755 --- a/challenge-206/roger-bell-west/raku/ch-2.p6 +++ b/challenge-206/roger-bell-west/raku/ch-2.p6 @@ -14,7 +14,7 @@ sub arraypairing(@n) { } my $hl = $nl div 2; my @out; - for [0 .. $nl-1].combinations(2) -> @px { + for [0 .. $nl-1].combinations($hl) -> @px { my @pa = map {@n[$_]},@px; my $ps = @px.Set; my @pb = map {@n[$_]}, grep {$ps{$_}:!exists}, (0 .. $nl-1); |