diff options
| -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 |