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

Break just before an instruction that opens code blocks or just after a close, unless can't

Browse Source
This commit is contained in:
Lee Spector 2024-01-09 16:40:40 -05:00
parent b0aee912bf
commit 71d378f49f
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/propeller/utils.cljc
View File

@ -215,10 +215,28 @@
(defn break-up (defn break-up
"A utility function for bmx-related genetic operators. Returns the provided "A utility function for bmx-related genetic operators. Returns the provided
:gap-free plushy with gaps randomly inserted to ensure that no gene is longer :gap-free plushy with gaps randomly inserted to ensure that no gene is longer
than the provided limit." than the provided limit. Will break just before an instruction that opens code
blocks or just after a close, unless there are no opportunities to do so"
[gene limit] [gene limit]
(if (> (count gene) limit) (if (> (count gene) limit)
(let [i (inc (rand-int (dec (count gene))))] (let [openers (map first
(filter #(and (second %)
(not (zero? (second %))))
parentheses/opens))
i (if (or (some (set openers) (rest gene))
(some #{'close} (butlast gene)))
(rand-nth (filter identity
(concat (map-indexed (fn [ix item]
(if (some #{item} openers)
(inc ix)
nil))
(rest gene))
(map-indexed (fn [ix item]
(if (= item 'close)
(inc ix)
nil))
(butlast gene)))))
(inc (rand-int (dec (count gene)))))]
(concat (break-up (take i gene) limit) (concat (break-up (take i gene) limit)
[:gap] [:gap]
(break-up (drop i gene) limit))) (break-up (drop i gene) limit)))