有没有办法从Clojure中另一个函数的列表中创建函数中的字符串？

Question

我对Clojure和函数式编程很陌生，我试图使用两个函数将一些字符连接到一个字符串中。我的想法基本上是这样的：

(defn receive [char-from-list]
  (str char-from-list))

(defn send-char [list-char]
  (if (empty? list-char)
    (receive nil)
    ((receive (first list-char))(send-char (rest list-char)))))

因此，我的想法是从函数send开始，并作为参数编写一个字符列表，如下所示：

(send-char '(\h \e \l \l \o))

带有get sent的receive函数一次发送一个字符，并使用str将它们添加到一起，我的最终输出是：“hello”。

当我尝试运行代码时，会出现以下错误：automata处的执行错误（ClassCastException）。核心/发送字符（核心clj:44）。类java。无法将lang.字符串转换为clojure类。lang.IFn（java.lang.String位于加载器“bootstrap”的模块java.base中；clojure.lang.IFn位于加载器“app”的未命名模块中）

我不确定是否有办法做到这一点或其他方法，但我不知道如何，请帮助。谢谢

Answer 1

错误是因为此处一行中有两个左括号：

((receive ...

请记住，在Clojure中，左paren表示“函数调用”，字符串不是函数（函数接收返回字符串）。

如果您有2件事要在Clojure中分组，则需要使用do表单，例如：

(defn send-char [chars]
  (if (empty? chars)
    (receive nil)
    (do
      (receive (first chars))
      (send-char (rest chars)))))

在确定了错误的来源之后，您最初的问题仍然非常模糊和未定义。以下是将字符序列连接到字符串的3种方法：

(ns tst.demo.core
  (:use tupelo.core tupelo.test)
  (:require
    [clojure.string :as str]))

(dotest
  (let-spy [chars (vec "hello")
            s0 (apply str chars)
            s1 (str/join chars)
            s2 (reduce str "" chars)
            ]
    (is= chars [\h \e \l \l \o])
    (is= s0 "hello")
    (is= s1 "hello")
    (is= s2 "hello")
    ))

以上内容基于我最喜欢的模板项目。一定要研究文档来源列表。