diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-08-23 16:05:04 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-08-23 16:05:04 +0100 |
| commit | 912ae2f4ae24097fafc7e6b45798067853d429b8 (patch) | |
| tree | 9d1e6f884216dcaa91f947110ae508e9acf33247 /challenge-074 | |
| parent | 3642ef4ccda0d4fd337f29ec089d11ecaffa22c7 (diff) | |
| parent | 68650a6990f24f0f3950794f263037b34c266d81 (diff) | |
| download | perlweeklychallenge-club-912ae2f4ae24097fafc7e6b45798067853d429b8.tar.gz perlweeklychallenge-club-912ae2f4ae24097fafc7e6b45798067853d429b8.tar.bz2 perlweeklychallenge-club-912ae2f4ae24097fafc7e6b45798067853d429b8.zip | |
Merge pull request #2129 from holli-holzer/master
initial
Diffstat (limited to 'challenge-074')
| -rw-r--r-- | challenge-074/markus-holzer/raku/ch-1.raku | 5 | ||||
| -rw-r--r-- | challenge-074/markus-holzer/raku/ch-2.raku | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/challenge-074/markus-holzer/raku/ch-1.raku b/challenge-074/markus-holzer/raku/ch-1.raku new file mode 100644 index 0000000000..d02eb546ef --- /dev/null +++ b/challenge-074/markus-holzer/raku/ch-1.raku @@ -0,0 +1,5 @@ +my @N = (1, 2, 2, 3, 2, 4, 2); +my $N = @N.Bag.max( *.value ).value; +my $T = +@N div 2; + +say $N > $T ?? $N !! -1;
\ No newline at end of file diff --git a/challenge-074/markus-holzer/raku/ch-2.raku b/challenge-074/markus-holzer/raku/ch-2.raku new file mode 100644 index 0000000000..581897eda9 --- /dev/null +++ b/challenge-074/markus-holzer/raku/ch-2.raku @@ -0,0 +1,5 @@ +my $S = ‘ababc’; +.say for ( [\,] $S.comb ).map( -> $L { + my $B = $L.Bag; + $L.reverse.first({ $B{ $_ } == 1 }) || "#" +});
\ No newline at end of file |