June 2018 Update

Task/Executable-library/Clojure/executable-library-2.clj

@@ -0,0 +1,13 @@
+(ns rosetta-code.frequent-hailstone-lengths
+  (:require [rosetta-code.hailstone-sequence
+             :refer [hailstone-seq]]))
+
+(defn -main [& args]
+  (let [frequencies (apply merge-with +
+                           (for [x (range 1 100000)]
+                             {(count (hailstone-seq x)) 1}))
+        [most-frequent-length frequency]
+        (apply max-key val (seq frequencies))]
+    (printf (str "The most frequent Hailstone sequence length for numbers under 100000 is %s,"
+                 " with a frequency of %s.\n")
+            most-frequent-length frequency)))