Merge pull request #1664 from Scimon/master

Starting on Challenge 2 this week.

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-059/simon-proctor/raku/ch-2.raku b/challenge-059/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..224906b720
--- /dev/null
+++ b/challenge-059/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+use v6;
+
+multi sub bit-diff( UInt $a, UInt $b where $a >= $b ) {
+    [+] ($a.base(2).comb.reverse Z (|$b.base(2).comb.reverse, |(lazy gather { take 0 }) ) ).map( { abs( $^a[0] - $^a[1] ) } );
+}
+
+multi sub bit-diff( UInt $a, UInt $b ) { bit-diff( $b, $a ) }
+
+#| Give the sum of the differences in bits between all the combinations of inputs
+sub MAIN (
+    *@vals where { $_.all ~~ UInt } #= Integer values to combine
+){
+    say [+] @vals.combinations(2).map( { bit-diff( |@_ ) } );
+}
+