001  (ns nature.population-presets
002    "Commonly used alleles and settings to help reign in magic constants")
003  
004  (def initializer-name
005    (vector "Initializer"))
006  
007  (def default-age
008    0)
009  
010  (def binary-genome
011    [0 1])
012  
013  (defn integer-genome
014    "A loose proxy for `range` with defaults for common needs/generative testing"
015    ([] (map inc (range 10)))
016    ([top] (map inc (range top)))
017    ([top bottom] (range bottom (inc top)))
018    ([top bottom step] (range bottom (inc top) step)))
019  
020  (def sum-alleles
021    (partial apply +))
022  
023  (def default-sequence-length
024    25)
025  
026  (def default-population-size
027    50)
028  
029  (def default-generation-count
030    50)