9 lines
146 B
Clojure
9 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))
|