langs a-z

Task/Executable-library/Perl-6/executable-library-1.pl6

@@ -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/Perl-6/executable-library-2.pl6

@@ -0,0 +1 @@
+$ perl6 Hailstone.pm

Task/Executable-library/Perl-6/executable-library-3.pl6

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