在Clojure中从字符串创建一个列表

时间:2011-01-29 12:09:24

标签: clojure clojure-contrib

我正在寻找使用字符串作为我的来源创建一个字符列表。我做了一些谷歌搜索并没有提出任何事情,所以我写了一个功能,做了我想要的:

(defn list-from-string [char-string]
  (loop [source char-string result ()]
    (def result-char (string/take 1 source))
    (cond
     (empty? source) result
     :else (recur (string/drop 1 source) (conj result result-char)))))

但是看着这个让我觉得我必须错过一个技巧。

  1. 是否有核心或贡献功能为我这样做?当然,我只是愚蠢吗?
  2. 如果没有办法改进此代码?
  3. 同样的事情对数字也有效吗?

4 个答案:

答案 0 :(得分:46)

您可以使用 seq 功能执行此操作:

user=> (seq "aaa")
(\a \a \a)

对于数字,您可以使用“哑”解决方案,例如:

user=> (map (fn [^Character c] (Character/digit c 10)) (str 12345))
(1 2 3 4 5)

P.S。 clojure中的字符串是'seq'able,因此您可以将它们用作任何序列处理函数的源 - map,for,...

答案 1 :(得分:17)

如果您知道输入将是字母,请使用

user=> (seq "abc")
(\a \b \c)

代表数字,试试这个

user=> (map #(Character/getNumericValue %) "123")
(1 2 3)

答案 2 :(得分:6)

编辑:哎呀,以为你想要一个不同的字符列表。为此,使用核心功能“频率”。

clojure.core/frequencies
([coll])
  Returns a map from distinct items in coll to the number of times they appear.

示例:

user=> (frequencies "lazybrownfox")
{\a 1, \b 1, \f 1, \l 1, \n 1, \o 2, \r 1, \w 1, \x 1, \y 1, \z 1}

然后你所要做的就是拿到钥匙并将它们变成一个字符串(或不是)。

user=> (apply str (keys (frequencies "lazybrownfox")))
"abflnorwxyz"

答案 3 :(得分:0)

(apply str (set "lazybrownfox")) => "abflnorwxyz"