Remove extraneous argmap argument

This commit is contained in:
Lee Spector 2020-12-08 12:21:40 -05:00
parent aed8eb8a76
commit 09d5455da3

View File

@ -18,7 +18,7 @@
(defn diploid-crossover
"Crosses over two individuals using uniform crossover. Pads shorter one."
[plushy-a plushy-b argmap]
[plushy-a plushy-b]
(let [plushy-a (partition 2 plushy-a)
plushy-b (partition 2 plushy-b)
shorter (min-key count plushy-a plushy-b)