diff options
| author | librasteve <40125330+librasteve@users.noreply.github.com> | 2023-11-07 20:11:22 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-11-07 20:11:22 +0000 |
| commit | 89f6be07a89a98d25f352f18850f24bf0ff7d985 (patch) | |
| tree | 032ab890354b0bc8b876ee9e0ba23cda7f244d1a | |
| parent | c9d5f2834f979267d8d5db8fdaba52504a0c0b95 (diff) | |
| parent | db4d9fe6bf77ff58c31ec3e9d2f71d8acf7d58d4 (diff) | |
| download | perlweeklychallenge-club-89f6be07a89a98d25f352f18850f24bf0ff7d985.tar.gz perlweeklychallenge-club-89f6be07a89a98d25f352f18850f24bf0ff7d985.tar.bz2 perlweeklychallenge-club-89f6be07a89a98d25f352f18850f24bf0ff7d985.zip | |
Merge branch 'manwar:master' into master
115 files changed, 7293 insertions, 3380 deletions
diff --git a/challenge-241/athanasius/perl/ch-2.pl b/challenge-241/athanasius/perl/ch-2.pl index 8dc37497d3..3417309a3b 100644 --- a/challenge-241/athanasius/perl/ch-2.pl +++ b/challenge-241/athanasius/perl/ch-2.pl @@ -64,7 +64,7 @@ BEGIN #------------------------------------------------------------------------------- { $| = 1; - print "\nChallenge 240, Task #2: Prime Order (Perl)\n\n"; + print "\nChallenge 241, Task #2: Prime Order (Perl)\n\n"; } #=============================================================================== diff --git a/challenge-241/matthias-muth/blog.txt b/challenge-241/matthias-muth/blog.txt new file mode 100644 index 0000000000..8db6d3085d --- /dev/null +++ b/challenge-241/matthias-muth/blog.txt @@ -0,0 +1 @@ +https://github.com/MatthiasMuth/perlweeklychallenge-club/tree/muthm-241/challenge-241/matthias-muth#readme diff --git a/challenge-242/clifton-wood/raku/ch-1.raku b/challenge-242/clifton-wood/raku/ch-1.raku new file mode 100644 index 0000000000..de234fc88c --- /dev/null +++ b/challenge-242/clifton-wood/raku/ch-1.raku @@ -0,0 +1,10 @@ +my %h; +my @a = <a b c>; +my @b = <b c f>; %h{ |@a, |@b } »=» 1; +my (@m-a, @m-b); +for %h.keys { + @m-a.push: $_ unless @a.first($_).defined; + @m-b.push: $_ unless @b.first($_).defined; +} +@m-a.gist.say; +@m-b.gist.say; diff --git a/challenge-242/clifton-wood/raku/ch-2.raku b/challenge-242/clifton-wood/raku/ch-2.raku new file mode 100644 index 0000000000..1831ded48e --- /dev/null +++ b/challenge-242/clifton-wood/raku/ch-2.raku @@ -0,0 +1,4 @@ +my @matrix = ([1, 1, 0], [1, 0, 1], [0, 0, 0]); +@matrix.map( *.reverse.map( *.not.Int ) ).gist.say + + diff --git a/challenge-242/e-choroba/perl/ch-1.pl b/challenge-242/e-choroba/perl/ch-1.pl new file mode 100755 index 0000000000..93b46b9b45 --- /dev/null +++ b/challenge-242/e-choroba/perl/ch-1.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl +use warnings; +use strict; +use experimental qw( signatures ); + +use Tie::IxHash; + +sub missing_members($arr1, $arr2) { + tie my %seen, 'Tie::IxHash'; + for my $i (0, 1) { + $seen{$_}[$i] = 1 for @{ ($arr1, $arr2)[$i] }; + } + my @missing = ([], []); + for my $e (keys %seen) { + push @{ $missing[ ! $seen{$e}[0] ] }, $e + unless 2 == grep $_, @{ $seen{$e} }; + } + return \@missing +} + +use Test2::V0; +plan 2 + 1; + +is missing_members([1, 2, 3], [2, 4, 6]), [[1, 3], [4, 6]], 'Example 1'; +is missing_members([1, 2, 3, 3], [1, 1, 2, 2]), [[3], []], 'Example 2'; +is missing_members([1, 1, 2, 2], [1, 2, 3, 3]), [[], [3]], 'First empty'; diff --git a/challenge-242/e-choroba/perl/ch-2.pl b/challenge-242/e-choroba/perl/ch-2.pl new file mode 100755 index 0000000000..199eb685ce --- /dev/null +++ b/challenge-242/e-choroba/perl/ch-2.pl @@ -0,0 +1, |