Как преобразовать LazySeq символов в строку в Clojure?

Скажем, у меня есть LazySeq из java.lang.Character, как

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

Как я могу преобразовать это в String? Я пробовал очевидный

(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))

но он вызывает одно и то же исключение. Теперь проблема заключается в том, что в-массив возвращает java.lang.Character [] вместо примитивного char []. Это разочаровывает, потому что я фактически генерирую последовательность символов, подобную этой

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

В принципе у меня есть seq из int, представляющих символы ASCII; 65 = A и т.д. Вы можете видеть, что я явно использую функцию принуждения типа примитива (char x).

Это означает, что моя функция map возвращает примитив char, но функция Clojure map возвращает java.lang.Character.

Ответ 1

Это работает:

(apply str my-char-seq)

В принципе, str вызывает toString() в каждом из своих аргументов и затем объединяет их. Здесь мы используем apply для передачи символов в последовательности как args на str.

Ответ 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

Для более сложных проблем вы также можете посмотреть strcat из библиотеки Tupelo:

(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"

Ответ 3

В качестве частного случая, если базовый тип рассматриваемой последовательности clojure.lang.StringSeq, вы также можете сделать:

(.s (my-seq))

который чрезвычайно эффективен, поскольку он просто вытаскивает публичное конечное поле CharSequence из класса clojure 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