5 lines
184 B
Text
5 lines
184 B
Text
(var fitness (comp @(map = target) (count val)))
|
|
(var perfect-fit? (comp fitness (= tsize)))
|
|
|
|
(var rand-char #(rand-pick alphabet))
|
|
(var mutate (map #(if (< (rand) p) (rand-char) %)))
|