September 2017 Update

Task/Executable-library/Phix/executable-library-2.phix

@@ -0,0 +1,11 @@
+include hail.exw
+
+sequence counts = {}
+for i=1 to 100000 do
+    integer l = hailstone_count(i)
+    if length(counts)<l then
+        counts &= repeat(0,l-length(counts))
+    end if
+    counts[l] += 1
+end for
+printf(1,"The hailstone length returned most often between 1 and 100,000 is %d.\n",{largest(counts,1)})