- Added solutions by Laurent Rosenfeld.

3 files changed, 36 insertions, 0 deletions

diff --git a/challenge-059/laurent-rosenfeld/raku/ch-1.p6 b/challenge-059/laurent-rosenfeld/raku/ch-1.p6
new file mode 100644
index 0000000000..8fea4b81bc
--- /dev/null
+++ b/challenge-059/laurent-rosenfeld/raku/ch-1.p6
@@ -0,0 +1,13 @@
+use v6;
+
+sub partition ($k, @list) {
+    my @before = grep {$_ < $k}, @list;
+    my @after = grep {$_ >= $k}, @list;
+    return |@before, |@after;
+}
+
+sub MAIN ($k, Str $list-str = "1 4 3 2 5 2") {
+    my @list = $list-str.comb(/\d+/);
+    my @result = partition $k, @list;
+    say @result.join(" → ");
+}
diff --git a/challenge-059/laurent-rosenfeld/raku/ch-1a.p6 b/challenge-059/laurent-rosenfeld/raku/ch-1a.p6
new file mode 100644
index 0000000000..7f74cc8a46
--- /dev/null
+++ b/challenge-059/laurent-rosenfeld/raku/ch-1a.p6
@@ -0,0 +1,6 @@
+use v6;
+
+my $k = 3;
+my @vals = <1 4 3 2 5 2>;
+my %out = classify { $_ < $k ?? 'before' !! 'after'}, @vals;
+say join " → ", |%out<before>, |%out<after>;
diff --git a/challenge-059/laurent-rosenfeld/raku/ch-2.p6 b/challenge-059/laurent-rosenfeld/raku/ch-2.p6
new file mode 100644
index 0000000000..c96a1787e9
--- /dev/null
+++ b/challenge-059/laurent-rosenfeld/raku/ch-2.p6
@@ -0,0 +1,17 @@
+use v6;
+
+sub compare (UInt $m, UInt $n) {
+    my @a = $m.fmt('%08b').comb;
+    my @b = $n.fmt('%08b').comb;
+    my $cnt = 0;
+    for 0..7 -> $i {
+        $cnt++ if @a[$i] != @b[$i];
+    }
+    return $cnt;
+}
+my $diff = 0;
+for @*ARGS.combinations(2) -> $seq {
+    $diff += compare +$seq[0], +$seq[1];
+}
+
+say $diff;