使用clojure读/读字符串函数,我如何在.clj文件中读取对象列表

Question

标题是,如果我这样做

(read-string (slurp "somefile"))

这只会给我文件中的第一个对象,这意味着"somefile"如下所示:

(a obj) (b obj)

然后我只得到(一个obj)作为结果.

我如何得到所有对象的列表,像这样？

((a obj) (b obj))

谢谢.

Answer 1

(defn read-all
  [input]
  (let [eof (Object.)]
    (take-while #(not= % eof) (repeatedly #(read input false eof)))))

Answer 2

我通常把东西包在一个列表中,

(read-string (str \( (slurp "somefile")  \)))