如何在 Clojure 中将 LazySeq 字符转换为字符串？

Question

假设我有一个 java.lang.Character 的 LazySeq ，就像

(\b \ \! \/ \b \ \% \1 \9 \/ \. \i \% \$ \i \space \^@)

如何将其转换为字符串？我已经尝试过显而易见的方法

(String. my-char-seq)

，但

java.lang.IllegalArgumentException: No matching ctor found for class java.lang.String (NO_SOURCE_FILE:0)
[Thrown class clojure.lang.Compiler$CompilerException]

我认为它会抛出异常，因为 String 构造函数需要一个原始的 char[] 而不是 LazySeq 。然后我尝试了类似的方法

(String. (into-array my-char-seq))

，但它抛出了相同的异常。现在的问题是 into-array 返回一个 java.lang.Character[] 而不是原始的 char[]。这很令人沮丧，因为我实际上是这样生成字符序列的：

(map #(char (Integer. %)) seq-of-ascii-ints)

基本上我有一个代表 ASCII 字符的 ints 序列； 65 = A 等。您可以看到我明确使用了原始类型强制函数 (char x)。

这意味着我的 ma​​p 函数返回原始 char，但 Clojure ma​​p 函数总体返回 java.lang。字符对象。

Answer 1

这是有效的：

(apply str my-char-seq)

基本上，str 在其每个参数上调用 toString()，然后连接它们。在这里，我们使用 apply 将序列中的字符作为参数传递给 str。

Answer 2

另一种方法是使用 clojure.string/join，如下所示：

(require '[clojure.string :as str] )
(assert (= (vec "abcd")                [\a \b \c \d] ))
(assert (= (str/join  (vec "abcd"))    "abcd" ))
(assert (= (apply str (vec "abcd"))    "abcd" ))

clojure.string/join 有另一种形式，它接受分隔符。请参阅：

http://clojuredocs.org/clojure_core/clojure.string/join

了解更多信息复杂的问题，您可能还希望查看 Tupelo 库中的 strcat ：

(require '[tupelo.core :as t] )
(prn (t/strcat "I " [ \h \a nil \v [\e \space (byte-array [97])
                  [ nil 32 "complicated" (Math/pow 2 5) '( "str" nil "ing") ]]] ))
;=> "I have a complicated string"

Answer 3

作为一种特殊情况，如果相关序列的基础类型是 clojure.lang.StringSeq ，您也可以这样做：

(.s (my-seq))

这非常高效，因为它只是从 clojure 中提取公共最终 CharSequence 字段StringSeq 类。

示例：

(type (seq "foo"))
=> clojure.lang.StringSeq

(.s (seq "foo"))
=> "foo"

(type (.s (seq "foo")))
=> java.lang.String

时序影响的示例（并注意使用类型提示时的差异）：

(time 
  (let [q (seq "xxxxxxxxxxxxxxxxxxxx")]
    (dotimes [_ 1000000]
      (apply str q))))
"Elapsed time: 620.943971 msecs"
=> nil

(time 
  (let [q (seq "xxxxxxxxxxxxxxxxxxxx")]
    (dotimes [_ 1000000]
      (.s q))))
"Elapsed time: 1232.119319 msecs"
=> nil

(time 
  (let [^StringSeq q (seq "xxxxxxxxxxxxxxxxxxxx")]
    (dotimes [_ 1000000]
      (.s q))))
"Elapsed time: 3.339613 msecs"
=> nil