Bioinformatics/Sequence mutation: Difference between revisions
Content added Content deleted
| Line 953: | Line 953: | ||
insertElement i e xs = take i xs <> [e] <> drop i xs |
insertElement i e xs = take i xs <> [e] <> drop i xs |
||
swapElement i a xs = take (pred i) xs <> [a] <> drop i xs |
swapElement i a xs = take (pred i) xs <> [a] <> drop i xs |
||
randomIndex |
randomIndex n = getStdRandom (randomR (1, n)) |
||
randomDNA = head . randoms <$> newStdGen |
randomDNA = head . randoms <$> newStdGen |
||