diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-07-20 23:17:56 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-07-20 23:17:56 +0100 |
| commit | eed5f9e733ad375bb0c7e9c86be2c353a43cab68 (patch) | |
| tree | 9c6831266d8dc6d5bab9b35a2efabf1573919324 | |
| parent | 189d19e32ba1fa301ca80ee9f339dadc9176e3c0 (diff) | |
| parent | 23362d4166869dd61485fd621e14ba583a0a9edb (diff) | |
| download | perlweeklychallenge-club-eed5f9e733ad375bb0c7e9c86be2c353a43cab68.tar.gz perlweeklychallenge-club-eed5f9e733ad375bb0c7e9c86be2c353a43cab68.tar.bz2 perlweeklychallenge-club-eed5f9e733ad375bb0c7e9c86be2c353a43cab68.zip | |
Merge pull request #8416 from polettix/polettix/pwc226
Add polettix's solution to challenge-226
| -rw-r--r-- | challenge-226/polettix/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-226/polettix/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-226/polettix/perl/ch-1.pl | 3 | ||||
| -rw-r--r-- | challenge-226/polettix/perl/ch-2.pl | 4 | ||||
| -rw-r--r-- | challenge-226/polettix/raku/ch-1.raku | 3 | ||||
| -rw-r--r-- | challenge-226/polettix/raku/ch-2.raku | 3 |
6 files changed, 15 insertions, 0 deletions
diff --git a/challenge-226/polettix/blog.txt b/challenge-226/polettix/blog.txt new file mode 100644 index 0000000000..dde44d6b4c --- /dev/null +++ b/challenge-226/polettix/blog.txt @@ -0,0 +1 @@ +https://etoobusy.polettix.it/2023/07/20/pwc226-shuffle-string/ diff --git a/challenge-226/polettix/blog1.txt b/challenge-226/polettix/blog1.txt new file mode 100644 index 0000000000..8c70511823 --- /dev/null +++ b/challenge-226/polettix/blog1.txt @@ -0,0 +1 @@ +https://etoobusy.polettix.it/2023/07/21/pwc226-zero-array/ diff --git a/challenge-226/polettix/perl/ch-1.pl b/challenge-226/polettix/perl/ch-1.pl new file mode 100644 index 0000000000..1d56c4a531 --- /dev/null +++ b/challenge-226/polettix/perl/ch-1.pl @@ -0,0 +1,3 @@ +#!/usr/bin/env perl +use v5.24; +say join '', (split //, $ARGV[0])[@ARGV[1 .. $#ARGV]]; diff --git a/challenge-226/polettix/perl/ch-2.pl b/challenge-226/polettix/perl/ch-2.pl new file mode 100644 index 0000000000..5907e26f0a --- /dev/null +++ b/challenge-226/polettix/perl/ch-2.pl @@ -0,0 +1,4 @@ +#!/usr/bin/env perl +use v5.24; +use List::Util 'uniq'; +say scalar grep { $_ } uniq @ARGV; diff --git a/challenge-226/polettix/raku/ch-1.raku b/challenge-226/polettix/raku/ch-1.raku new file mode 100644 index 0000000000..2cc84b7ce8 --- /dev/null +++ b/challenge-226/polettix/raku/ch-1.raku @@ -0,0 +1,3 @@ +#!/usr/bin/env raku +use v6; +sub MAIN ($s, *@i) { put $s.comb[@i].join('') } diff --git a/challenge-226/polettix/raku/ch-2.raku b/challenge-226/polettix/raku/ch-2.raku new file mode 100644 index 0000000000..4659196541 --- /dev/null +++ b/challenge-226/polettix/raku/ch-2.raku @@ -0,0 +1,3 @@ +#!/usr/bin/env raku +use v6; +sub MAIN (*@ints) { put @ints.unique.grep({$_}).elems } |