Data commit

Task/Executable-library/Raku/executable-library-1.raku

@@ -0,0 +1,9 @@
+module Hailstone {
+    our sub hailstone($n) is export {
+	$n, { $_ %% 2 ?? $_ div 2 !! $_ * 3 + 1 } ... 1
+    }
+}
+
+sub MAIN {
+    say "hailstone(27) = {.[^4]} [...] {.[*-4 .. *-1]}" given Hailstone::hailstone 27;
+}

Task/Executable-library/Raku/executable-library-2.raku

@@ -0,0 +1 @@
+$ raku Hailstone.rakumod

Task/Executable-library/Raku/executable-library-3.raku

@@ -0,0 +1,4 @@
+use Hailstone;
+my %score;
+(1 .. 100_000).race.map: { %score{hailstone($_).elems}++ };
+say "Most common length is {.key}, occurring {.value} times." given max :by(*.value), %score;