8 lines
146 B
Clojure
8 lines
146 B
Clojure
(loop [i 1024]
|
|
(when (pos? i)
|
|
(println i)
|
|
(recur (quot i 2))))
|
|
|
|
|
|
(doseq [i (take-while pos? (iterate #(quot % 2) 1024))]
|
|
(println i))
|