“无法解析符号”错误

Question

当我将此代码粘贴到 REPL 中时，它可以正常工作：

(use 'clojure.contrib.seq-utils)
(defn- random-letter [] (char (+ (rand-int 26) 97)))
(defn- random-digit [] (rand-int 10))
(defn- random-password
  "Returns an 8-character password consisting of letters and digits as follows: aa1aa1aa"
  []
  (let [password (interpose '((random-digit)) (repeat 3 (repeat 2 '(random-letter))))]
    (apply str (flatten (map (fn [coll] (map eval coll)) password)))))

现在，我有这个带有:gen-class :implements [my.ServiceInterface] 的代码和一个以- 为前缀的函数来实现接口。我使用 Maven/Groovy/TestNG 进行单元测试。其他几个接口/Clojure 实现一切正常，但在这种特殊情况下，我收到此错误：

java.lang.RuntimeException:
java.lang.Exception: Unable to resolve symbol: random-letter in this context (NO_SOURCE_FILE:32)

我不知道为什么。我唯一能说的是这个函数与所有其他函数的不同之处在于，这是我唯一使用引用的地方，即'((random-digit)) 和'(random-letter)。编辑：另外，这是我使用eval 的唯一地方。

我尝试将函数定义为“非私有”（defn 而不是defn-）。我还在顶部尝试了(declare random-digit random-letter)。这些都不能解决问题。

附带说明，如果您对实现random-password 函数的更好方法有建议，我会全力以赴。但我仍然想知道为什么会出现此错误以及如何使其正常工作。

非常感谢您的帮助。 Clojure 很棒。

编辑：这是完整的代码。

(ns fred.hp2010.service.ClojurePoolerService
  (:gen-class :implements [fred.hp2010.service.PoolerService])
  (:use [clojure.contrib.seq-utils :only (flatten)]))

(def dao (fred.hp2010.persistence.Repository/getDao))

(declare find-by is-taken random-password)

(defn -addPooler [this pooler] (. dao insert "POOLER" pooler))
(defn -getPoolers [this] (. dao list "poolers"))
(defn -isEmailTaken [this email] (is-taken {"email" email}))
(defn -isUsernameTaken [this username] (is-taken {"username" username}))
(defn -login [this email password] (. dao findSingle "POOLER" {"email" email "password" password}))

(defn -changePassword [this email new-password]
  (let [updated-pooler (assoc (into {} (find-by {"email" email})) "password" new-password)]
    (. dao update "POOLER" "POOLER_ID" updated-pooler)))

(defn -resetPassword [this email]
  (let [new-password (random-password)]
    (-changePassword this email new-password)
    new-password))

(defn- find-by [params] (. dao findSingle "POOLER" params))
(defn- is-taken [params] (not (nil? (find-by params))))

(defn- random-letter [] (char (+ (rand-int 26) 97)))
(defn- random-digit [] (rand-int 10))
(defn- random-password
  "Returns an 8-character password consisting of letters and digits as follows: aa1aa1aa"
  []
  (let [password (interpose '((random-digit)) (repeat 3 (repeat 2 '(random-letter))))]
    (apply str (flatten (map (fn [coll] (map eval coll)) password)))))

Answer 1

我不知道为什么您在使用 :gen-class 编译此文件时遇到问题，但如果 eval 与此有关，我不会感到惊讶。 eval 通常是个坏主意。要尝试的一件事（完全未经测试）是使用`（反引号）而不是'（引号），以便您的符号是命名空间限定的。不知道有没有用。

也许最好摆脱eval。如果你通过repeatedly 将你的随机字符函数变成无限惰性序列，你可以这样做：

(defn- random-letter [] (repeatedly #(char (+ (rand-int 26) 97))))
(defn- random-digit  [] (repeatedly #(rand-int 10)))
(defn- random-password
  "Returns an 8-character password consisting of letters and digits as follows: aa1aa1aa"
  []
  (apply str
         (mapcat (fn [[n f]] (take n (f)))
                 [[2 random-letter]
                  [1 random-digit]
                  [2 random-letter]
                  [1 random-digit]
                  [2 random-letter]])))

Answer 2

在前几行中，我在遵循语法时遇到了一些麻烦。特别是，为什么第 7 行中的所有引号？所有这些表达式的延迟评估可能对您没有帮助。我猜引用的'(random-letter) 会破坏你的乐趣。

您可以编写更简单的代码，同时避开eval。我打算在 REPL 中尝试一下，我希望很快就会有一个改进的版本。

编辑：

好的，这行得通：

(apply str (interpose (random-digit) (repeat 3 (apply str (repeat 2 (random-letter))))))

...它不需要来自clojure.contrib 的任何东西 :)

str 函数会将任何参数组合成一个字符串。如果参数在列表中，则使用 apply 将 str 偷运到列表中。

正如你所说，Clojure 很酷！

编辑：

这是一个根据字符串规范生成由字母和数字组成的随机字符串的函数：

(apply str (map (fn [c] (if (= c \a) (random-letter) (random-digit))) "aanaanaa")))

它与您的规范略有不同，但我认为它很酷。