Gapful numbers: Difference between revisions
m
→{{header|Clojure}}: Generalize reporting ranges
m (→{{header|Clojure}}: Generalize reporting ranges) |
|||
Line 527:
(defn gapful [] (gapful-from 1))
(defn gapfuls-in-range [start size] (take size (gapful-from start)))
(println "First 30 gapful numbers:")▼
(defn report-range [desc]
(let [[start size] desc]
(doall (map println
(gapfuls-in-range start size)
""]))))
(doall (map report-range [ [100 30] [1000000 15] [1000000000 10] ]))</lang>
{{Out}}
Line 547 ⟶ 549:
(1000000000 1000000001 1000000005 1000000008 1000000010 1000000016 1000000020 1000000027 1000000030 1000000032)
</pre>
=={{header|COBOL}}==
| |||