在clojure返回错误中实现范围函数

Question

我正在尝试在 clojure 中实现 range 函数，但我的实现返回了一个我无法理解的错误。这里是：

(defn implement-range [a b] (
  if (= a b)
  (conj nil b)
  ((conj nil a) (implement-range (inc a) b))))

我正在尝试以递归方式进行操作，但它还没有完成，因为我遇到了这个错误：

ClassCastException clojure.lang.PersistentList cannot be cast to clojure.lang.IFn  user/implement-range

我认为这是我看不到的括号问题（我是 clojure 的新手 :)）。有什么想法吗？

提前感谢您的帮助

编辑：

如果我这样调用函数，我想返回类似 (1 2 3 4) 的内容：

(implement-range 1 5)

Answer 1

你很亲密：

(defn implement-range [a b]
  (if (>= a b)
      '()
      (conj (implement-range (inc a) b) a)))

(implement-range 0 5)
=> (0 1 2 3 4)

首先，主要问题是((conj nil a) (implement-range (inc a) b)))) 试图将(conj nil a) 作为函数调用，而(implement-range (inc a) b) 作为参数。我不完全确定您要在这里做什么，但这绝对不是您想要的。

我做了三处改动：

• 你需要conj当前号码到递归调用的结果。这是“不安全”的递归，因为递归调用不在尾部位置，但是在搞砸的时候，这没什么大不了的。但是，如果您打算真正使用它，您将需要使用另一种方法。

• 如果你输入一个大于a的b，它就会爆炸。我通过更改基本情况条件解决了这个问题。

• 您的基本情况没有任何意义。递归停止后，您需要添加到一个空列表中。

只是一个旁注，任何时候你看到((，小警钟都应该响起。这通常是一个问题的征兆，除非你喜欢写((comp str inc) 1)之类的东西；其中表达式中的第一个形式计算为一个函数。

Answer 2

最简单（也是最经典的）应该是这样的：

(defn implement-range [a b]
  (when (< a b)
    (cons a (implement-range (inc a) b))))

user> (implement-range 1 20)
;;=> (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)

Answer 3

我做了一些研究，发现以这种方式使用 conj 没有任何意义。所以我想出了这个：

(defn implement-range [a b] (
  if (= a b)
  b
  (flatten (list a (implement-range (inc a) b)))))

所以如果我用 1 4 个参数调用函数，结果将是：

(1 2 3 4)

但是，由于我正在尝试实现诸如范围功能之类的功能，因此还需要删除最后一个元素。

编辑 1

我写的最后一个函数是这样的：

(defn implement-range [a b] (
  if (= a b)
  nil
  (remove nil? (flatten (list a (implement-range (inc a) b))))))

编辑 2 经过更多研究后，我找到了另一种解决此问题的方法，代码行数更少：

(defn new-range [a b]
  (take (- b a) (iterate inc a)))