Clojure：一个请求用户输入函数的实现

笔者没有发现Clojure中有类似于Common Lisp中的“read”函数，在CL中的这个read会等待用户输入，并在获得用户输入后返回输入的值。这个read函数在设计一些简单的交互程序时还是比较有用的，并且在进行REPL试验时也具有一定的用途。例如下面这个使用了请求用户输入的hello world：

(defn sayhi []
  (let [name (ask "what's your name?")]
    (println "hello" name)))

当我们调用这个函数时，它会要求用户输入名字，并在获得输入后打印欢迎信息：

user=> (sayhi)
what's your name?: Hank
hello Hank
nil
user=>

在上面的例子中，类似于CL中的read函数的就是我们的“ask”，这个函数是这样子的：

(defn ask
  "Ask for an input."
  ([] (ask "Please Input"))
  ([^String prompt]
    (printf "%s: " prompt)
    (flush)
    (.readLine *in*)))

这个函数首先打印提示，然后等待用户输入，在得到输入后返回读入的输入给调用函数。

这样子，一个简单的read函数就完成了。但愿大家可以在REPL里面玩得更有趣点了……

----------------------------- 于2012-09-14更新 ------------------------------------

Clojure 1.3 中引入了类似于这里的ask的函数，名字为read-line。当然这两个函数还是不同的，大家可以从API文档查看read-line的使用方法。