14 lines
580 B
Clojure
14 lines
580 B
Clojure
(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)))
|