6 lines
87 B
Clojure
6 lines
87 B
Clojure
|
(def i (ref 1024))
|
||
|
|
|
||
|
|
(while (> @i 0)
|
||
|
|
(println @i)
|
||
|
|
(dosync (ref-set i (quot @i 2))))
|