Menu: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 154:
return 0;
}</lang>
=={{header|Clojure}}==
<lang lisp>(defn menu [strs]
(if (empty? strs)
""
(let [menustr
(apply str
(interleave (iterate #(+ 1 %) 1)
(map #(apply str (conj (seq (concat (seq %) "\n"))
\space)) strs)))]
(println menustr)
(print "Please enter a number: ")
(flush)
(let [len (count strs)
input (read-string (read-line))]
(if (or (> input len) (< input len) (not (integer? input)))
(recur strs)
(println (nth strs (- input 1))))))))</lang>
=={{header|Common Lisp}}==
| |||