Gapful numbers: Difference between revisions

m (→‎{{header|Clojure}}: Generalize reporting ranges)
Line 529:
(defn gapfuls-in-range [start size] (take size (gapful-from start)))
 
(defn report-range [desc[start size]]
(doall (map println
(let [[start size] desc]
[(format "First %d gapful numbers >= %d:" size start)
(doall (map println
(gapfuls-in-range start size)
[(format "First %d gapful numbers >= %d:" size start)
""]))))
(gapfuls-in-range start size)
""]))))
 
(doall (map report-range [ [100 30] [1000000 15] [1000000000 10] ]))</lang>
1,481

edits