我正在使用rand
在 clj-record 中将字段值指定为:before-save
函数。下面的random-str
函数用于生成值。
(def VALID-CHARS
(map char (concat (range 48 58) ; 0-9
(range 65 91) ; A-Z
(range 97 123)))) ; a-z
(defn random-char []
(nth VALID-CHARS (rand (count VALID-CHARS))))
(defn random-str [length]
(apply str (take length (repeatedly random-char))))
当我随后使用从 clj-record create
功能返回的地图时,该字段的值与数据库中的值不同。这是否意味着存在一些懒惰的评估诡计? random-str
被多次调用了吗?