summaryrefslogtreecommitdiff
path: root/src/Genome.hs
diff options
context:
space:
mode:
authorsanine <sanine.not@pm.me>2023-11-29 17:11:07 -0600
committersanine <sanine.not@pm.me>2023-11-29 17:11:07 -0600
commit98eabf2989cb3706ee05b6481b0a7221a6c23a51 (patch)
tree8b975b18beb53777498d80626a6854ccce2dbab0 /src/Genome.hs
parentd28e8e243d3d6563c0f1036aa0b74e0d0c77c80a (diff)
add mutateGenome
Diffstat (limited to 'src/Genome.hs')
-rw-r--r--src/Genome.hs27
1 files changed, 27 insertions, 0 deletions
diff --git a/src/Genome.hs b/src/Genome.hs
index e0091b9..cb90ed1 100644
--- a/src/Genome.hs
+++ b/src/Genome.hs
@@ -10,6 +10,8 @@ module Genome
, mutateGenomeRemoveInternal
, mutateGenomeAddGene
, mutateGenomeRemoveGene
+
+ , mutateGenome
) where
@@ -172,3 +174,28 @@ mutateGenomeRemoveGene g r =
(idx, r') = randomR (0, (length $ genes g) - 1) r
(front, _:back) = splitAt idx (genes g)
in (g {genes = front ++ back}, r')
+
+
+-- mutate a random gene
+mutateGenomeMutateGene :: RandomGen a => Genome -> a -> (Genome, a)
+mutateGenomeMutateGene g r =
+ let
+ (idx, r') = randomR (0, length (genes g) - 1) r
+ gene = (genes g) !! idx
+ (gene', r'') = mutateGene g gene r'
+ (front, _:back) = splitAt idx (genes g)
+ in (g {genes = front ++ (gene':back)}, r'')
+
+
+-- mutate a genome
+mutateGenome :: RandomGen a => Genome -> a -> (Genome, a)
+mutateGenome g r =
+ let
+ (f, r') = randomChoice (concat
+ [ replicate 9 mutateGenomeMutateGene
+ , replicate 2 mutateGenomeAddGene
+ , replicate 2 mutateGenomeRemoveGene
+ , [mutateGenomeAddInternal, mutateGenomeRemoveInternal]
+ ]
+ ) r
+ in f g r'