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

Implement :close options :specified (default until recently, and now again), :balanced (default just prior to this commit), :none (which also removes instructions that open multiple code blocks)

Browse Source
This commit is contained in:
Lee Spector 2024-01-12 16:25:59 -05:00
parent ddb788ad84
commit 70e9f81f84
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/propeller/utils.cljc
View File

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