rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Always make probability of close equal to probability that instruction set adds an open

Browse Source
This commit is contained in:
Lee Spector 2024-01-06 16:39:11 -05:00
parent 126b358643
commit f0424979b5
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/propeller/utils.cljc
View File

@ -51,21 +51,16 @@
"Returns a random instruction from a supplied pool of instructions, evaluating
ERC-producing functions to a constant literal."
[instructions argmap]
(if (:auto-close argmap)
(let [instructions (remove #(= % 'close) instructions)
p (/ (apply + (filter identity
(map #(get parentheses/opens %) instructions)))
(count instructions))]
(if (< (rand) p)
'close
(let [instruction (rand-nth instructions)]
(if (fn? instruction)
(instruction)
instruction))))
(let [instruction (rand-nth instructions)]
(if (fn? instruction)
(instruction)
instruction))))
(let [instructions (remove #(= % 'close) instructions)
p (/ (apply + (filter identity
(map #(get parentheses/opens %) instructions)))
(count instructions))]
(if (< (rand) p)
'close
(let [instruction (rand-nth instructions)]
(if (fn? instruction)
(instruction)
instruction)))))
(defn count-points
"Returns the number of points in tree, where each atom and each pair of parentheses