From 60046892e5ed46ec74ceaa81ea4f8e78c6689020 Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Sun, 23 Aug 2020 15:30:06 +0200 Subject: initial --- challenge-074/markus-holzer/raku/ch-1.raku | 5 +++++ challenge-074/markus-holzer/raku/ch-2.raku | 5 +++++ 2 files changed, 10 insertions(+) create mode 100644 challenge-074/markus-holzer/raku/ch-1.raku create mode 100644 challenge-074/markus-holzer/raku/ch-2.raku 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..f32224dadb --- /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.first({ $B{ $_ } == 1 }) || "#" +}); \ No newline at end of file -- cgit From 802fea0b886191cf100ebf508ebfe05a07a07211 Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Sun, 23 Aug 2020 16:19:59 +0200 Subject: fix --- challenge-074/markus-holzer/raku/ch-2.raku | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/challenge-074/markus-holzer/raku/ch-2.raku b/challenge-074/markus-holzer/raku/ch-2.raku index f32224dadb..14344e336c 100644 --- a/challenge-074/markus-holzer/raku/ch-2.raku +++ b/challenge-074/markus-holzer/raku/ch-2.raku @@ -1,5 +1,6 @@ my $S = ‘ababc’; .say for ( [\,] $S.comb ).map( -> $L { my $B = $L.Bag; - $L.first({ $B{ $_ } == 1 }) || "#" + dd $B; + $L.reverse.first({ $B{ $_ } == 1 }) || "#" }); \ No newline at end of file -- cgit From 68650a6990f24f0f3950794f263037b34c266d81 Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Sun, 23 Aug 2020 16:20:43 +0200 Subject: dd --- challenge-074/markus-holzer/raku/ch-2.raku | 1 - 1 file changed, 1 deletion(-) diff --git a/challenge-074/markus-holzer/raku/ch-2.raku b/challenge-074/markus-holzer/raku/ch-2.raku index 14344e336c..581897eda9 100644 --- a/challenge-074/markus-holzer/raku/ch-2.raku +++ b/challenge-074/markus-holzer/raku/ch-2.raku @@ -1,6 +1,5 @@ my $S = ‘ababc’; .say for ( [\,] $S.comb ).map( -> $L { my $B = $L.Bag; - dd $B; $L.reverse.first({ $B{ $_ } == 1 }) || "#" }); \ No newline at end of file -- cgit