突变问题 - Clojure

Question

更改以列表表示的函数元素时遇到问题。

随机函数的代码：

(defn makerandomtree-10
[pc maxdepth maxwidth fpx ppx]
(if-let [output 
  (if (and (< (rand) fpx) (> maxdepth 0))
    (let [head (nth operations (rand-int (count operations)))
      children (doall (loop[function (list)
            width maxwidth]
              (if (pos? width)
            (recur (concat function 
              (list (makerandomtree-10 pc (dec maxdepth) 
                (+ 2 (rand-int (- maxwidth 1))) fpx ppx)))
              (dec width))
            function)))]
    (concat (list head) children))
    (if (and (< (rand) ppx) (>= pc 0))
    (nth parameters (rand-int (count parameters)))
    (rand-int 100)))]
output
))

我还将提供一个变异函数，但它仍然不够好。我需要能够评估我的陈述，因此以下内容仍然不够。

(defn mutate-5
"chooses a node changes that"
[function pc maxwidth pchange]
(if (< (rand) pchange)
    (let [output (makerandomtree-10 pc 3 maxwidth 0.5 0.6)]
    (if (seq? output) output (list output)))
    ;mutate the children of root
    ;declare an empty accumulator list, with root as its head 
    (let [head (list (first function))
          children (loop [acc(list)
                  walker (next function)] (println "----------") (println walker) (println "-----ACC-----") (println acc)
            (if (not walker)
                acc
                (if (or (seq? (first function)) (contains? (set operations) (first function)))
                  (recur (concat acc (mutate-5 walker pc maxwidth pchange))
                    (next walker))
                  (if (< (rand) pchange)
                    (if (some (set parameters) walker)
                    (recur (concat acc (list (nth parameters (rand-int (count parameters)))))
                        (if (seq? walker) (next walker) nil))
                    (recur (concat acc (list (rand-int 100)))
                        (if (seq? walker) (next walker) nil)))
                    (recur acc (if (seq? walker) (next walker) nil))))
             ))]
        (concat head (list children)))))

（旁注：你有学习 clojure 的链接/书籍吗？）

Answer 1

查看 clojure.walk 命名空间。很可能是这样的函数 clojure.walk/ postwalk-replace 就是您要寻找的。