diff options
| author | Joel Crosswhite <joel.crosswhite@ix.netcom.com> | 2020-12-05 09:34:52 -0700 |
|---|---|---|
| committer | Joel Crosswhite <joel.crosswhite@ix.netcom.com> | 2020-12-05 09:34:52 -0700 |
| commit | b9c6f299adb3747381125eb514dbe94786e00e76 (patch) | |
| tree | db3c1b40c7241a26e5e806fd3311d2ff983fa442 | |
| parent | af36ef9593ecd93f7dcd5f4f9dd8323ab77d52c0 (diff) | |
| parent | d19b0f983bbefca06f6139624711c079ac18eb6e (diff) | |
| download | perlweeklychallenge-club-b9c6f299adb3747381125eb514dbe94786e00e76.tar.gz perlweeklychallenge-club-b9c6f299adb3747381125eb514dbe94786e00e76.tar.bz2 perlweeklychallenge-club-b9c6f299adb3747381125eb514dbe94786e00e76.zip | |
Merge branch 'master' of github.com:manwar/perlweeklychallenge-club into feature/c089
105 files changed, 4333 insertions, 2661 deletions
diff --git a/challenge-004/arne-sommer/perl6/lib/.precomp/.lock b/challenge-004/arne-sommer/perl6/lib/.precomp/.lock deleted file mode 100644 index e69de29bb2..0000000000 --- a/challenge-004/arne-sommer/perl6/lib/.precomp/.lock +++ /dev/null diff --git a/challenge-005/ruben-westerberg/perl5/.ch-2.pl.swp b/challenge-005/ruben-westerberg/perl5/.ch-2.pl.swp Binary files differdeleted file mode 100644 index d11770bb3d..0000000000 --- a/challenge-005/ruben-westerberg/perl5/.ch-2.pl.swp +++ /dev/null diff --git a/challenge-005/ruben-westerberg/perl6/.ch-1.p6.swp b/challenge-005/ruben-westerberg/perl6/.ch-1.p6.swp Binary files differdeleted file mode 100644 index 435426945c..0000000000 --- a/challenge-005/ruben-westerberg/perl6/.ch-1.p6.swp +++ /dev/null diff --git a/challenge-005/ruben-westerberg/perl6/.ch-2.p6.swp b/challenge-005/ruben-westerberg/perl6/.ch-2.p6.swp Binary files differdeleted file mode 100644 index a0673fa496..0000000000 --- a/challenge-005/ruben-westerberg/perl6/.ch-2.p6.swp +++ /dev/null diff --git a/challenge-005/ruben-westerberg/perl6/.precomp/.lock b/challenge-005/ruben-westerberg/perl6/.precomp/.lock deleted file mode 100644 index e69de29bb2..0000000000 --- a/challenge-005/ruben-westerberg/perl6/.precomp/.lock +++ /dev/null diff --git a/challenge-005/ruben-westerberg/perl6/.precomp/E8252BAA8CCA5C482BDD1088C325C513F7B95D46/8E/8EC489C474F22D0612C0E178FCE69EABDC1889BA b/challenge-005/ruben-westerberg/perl6/.precomp/E8252BAA8CCA5C482BDD1088C325C513F7B95D46/8E/8EC489C474F22D0612C0E178FCE69EABDC1889BA Binary files differdeleted file mode 100644 index 90d5f7521d..0000000000 --- a/challenge-005/ruben-westerberg/perl6/.precomp/E8252BAA8CCA5C482BDD1088C325C513F7B95D46/8E/8EC489C474F22D0612C0E178FCE69EABDC1889BA +++ /dev/null diff --git a/challenge-005/ruben-westerberg/perl6/.precomp/E8252BAA8CCA5C482BDD1088C325C513F7B95D46/8E/8EC489C474F22D0612C0E178FCE69EABDC1889BA.repo-id b/challenge-005/ruben-westerberg/perl6/.precomp/E8252BAA8CCA5C482BDD1088C325C513F7B95D46/8E/8EC489C474F22D0612C0E178FCE69EABDC1889BA.repo-id deleted file mode 100644 index 2b400f7316..0000000000 --- a/challenge-005/ruben-westerberg/perl6/.precomp/E8252BAA8CCA5C482BDD1088C325C513F7B95D46/8E/8EC489C474F22D0612C0E178FCE69EABDC1889BA.repo-id +++ /dev/null @@ -1 +0,0 @@ -C545466C5B3B71D462733C373F50078A3AD53B64
\ No newline at end of file diff --git a/challenge-012/stuart-little/README b/challenge-012/stuart-little/README new file mode 100644 index 0000000000..78439907de --- /dev/null +++ b/challenge-012/stuart-little/README @@ -0,0 +1 @@ +Solutions by Stuart Little diff --git a/challenge-012/stuart-little/raku/ch-1.p6 b/challenge-012/stuart-little/raku/ch-1.p6 new file mode 100755 index 0000000000..cf9e37c40e --- /dev/null +++ b/challenge-012/stuart-little/raku/ch-1.p6 @@ -0,0 +1,6 @@ +#!/usr/bin/env perl6 +use v6; + +([\*] (2..*).grep(*.is-prime)).map(*+1).first(! *.is-prime).say + +# run as <script> diff --git a/challenge-012/stuart-little/raku/ch-2.p6 b/challenge-012/stuart-little/raku/ch-2.p6 new file mode 100755 index 0000000000..86f68510c0 --- /dev/null +++ b/challenge-012/stuart-little/raku/ch-2.p6 @@ -0,0 +1,11 @@ +#!/usr/bin/env perl6 +use v6; + +my %*SUB-MAIN-OPTS=:named-anywhere,; +sub MAIN( + Str :s(:sep(:$separator)) where *.chars==1 ='/', + *@DIRECTORIES, + ) { + @DIRECTORIES[0] ~~ m:exhaustive/(^.*) <?before $separator || $>/; + say $/.map(*.Str).grep(! *.ends-with($separator)).first( -> $dir { @DIRECTORIES.all ~~ /^$dir(\/ || $)/ }) +} diff --git a/challenge-018/arne-sommer/perl6/lib/.precomp/.lock b/challenge-018/arne-sommer/perl6/lib/.precomp/.lock deleted file mode 100644 index e69de29bb2..0000000000 --- a/challenge-018/arne-sommer/perl6/lib/.precomp/.lock +++ /dev/null diff --git a/challenge-018/arne-sommer/perl6/lib/.precomp/B834E114E7A64AF8236503A5AE1E84F9F37C8B47/03/03D0BC625DDEC3BE511B7A604CF03963963B5CBF b/challenge-018/arne-sommer/perl6/lib/.precomp/B834E114E7A64AF8236503A5AE1E84F9F37C8B47/03/03D0BC625DDEC3BE511B7A604CF03963963B5CBF Binary files differdeleted file mode 100644 index ae1304a28b..0000000000 --- a/challenge-018/arne-sommer/perl6/lib/.precomp/B834E114E7A64AF8236503A5AE1E84F9F37C8B47/03/03D0BC625DDEC3BE511B7A604CF03963963B5CBF +++ /dev/null diff --git a/challenge-018/arne-sommer/perl6/lib/.precomp/B834E114E7A64AF8236503A5AE1E84F9F37C8B47/03/03D0BC625DDEC3BE511B7A604CF03963963B5CBF.repo-id b/challenge-018/arne-sommer/perl6/lib/.precomp/B834E114E7A64AF8236503A5AE1E84F9F37C8B47/03/03D0BC625DDEC3BE511B7A604CF03963963B5CBF.repo-id deleted file mode 100644 index 52cb87c55b..0000000000 --- a/challenge-018/arne-sommer/perl6/lib/.precomp/B834E114E7A64AF8236503A5AE1E84F9F37C8B47/03/03D0BC625DDEC3BE511B7A604CF03963963B5CBF.repo-id +++ /dev/null @@ -1 +0,0 @@ -DAADAA97D202102F50C02F99B89E28CFC6A3CFFF
\ No newline at end of file diff --git a/challenge-023/stuart-little/README b/challenge-023/stuart-little/README new file mode 100644 index 0000000000..78439907de --- /dev/null +++ b/challenge-023/stuart-little/README @@ -0,0 +1 @@ +Solutions by Stuart Little diff --git a/challenge-023/stuart-little/raku/ch-1.p6 b/challenge-023/stuart-little/raku/ch-1.p6 new file mode 100755 index 0000000000..d8deac2344 --- /dev/null +++ b/challenge-023/stuart-little/raku/ch-1.p6 @@ -0,0 +1,10 @@ +#!/usr/bin/env perl6 +use v6; + +sub dff(@a where {$_.all ~~ Int}) { + @a.rotor(2 => -1).map({ $_[1] - $_[0] }) +} + +for (1..@*ARGS[0].Int).map({ reduce { $^b.($^a) }, @*ARGS[1..*].map(*.Int), |(&dff xx $_) }) {.say} + +# run as <script> <number of difference iterations> <space-separated integer array entries> diff --git a/challenge-023/stuart-little/raku/ch-2.p6 b/challenge-023/stuart-little/raku/ch-2.p6 new file mode 100755 index 0000000000..2209962027 --- /dev/null +++ b/challenge-023/stuart-little/raku/ch-2.p6 @@ -0,0 +1,14 @@ +#!/usr/bin/env perl6 +use v6; + +my @PRIMES=(2..*).grep(*.is-prime); + +sub fct($n,@a) { + $n.abs == 1 && return @a; + my $fact=@PRIMES.first($n %% *); + return fct(($n div $fact), (|@a,$fact)); +} + +say @*ARGS[0].Int.&fct(()) + +# run as <script> <integer> diff --git a/challenge-028/stuart-little/README b/challenge-028/stuart-little/README new file mode 100644 i |