RosettaCodeData/Task/Nested-function/Clojure/nested-function.clj
2023-07-01 13:44:08 -04:00

8 lines
240 B
Clojure

(defn make-list [separator]
(let [x (atom 0)]
(letfn [(make-item [item] (swap! x inc) (println (format "%s%s%s" @x separator item)))]
(make-item "first")
(make-item "second")
(make-item "third"))))
(make-list ". ")