Nested function: Difference between revisions
Content added Content deleted
(Adds Clojure solution) |
|||
Line 245: | Line 245: | ||
Console.WriteLine(MakeList(". "));</lang> |
Console.WriteLine(MakeList(". "));</lang> |
||
=={{header|Clojure}}== |
|||
<lang 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 ". ")</lang> |
|||
{{out}} |
|||
<pre> |
|||
1. first |
|||
2. second |
|||
3. third |
|||
</pre> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |