18 lines
495 B
Text
18 lines
495 B
Text
[ $ "ACGT" 4 random peek ] is randomgene ( --> c )
|
|
|
|
[ $ "" swap times
|
|
[ randomgene join ] ] is randomsequence ( n --> $ )
|
|
|
|
[ dup size random
|
|
3 random
|
|
[ table
|
|
[ pluck drop ]
|
|
[ randomgene unrot stuff ]
|
|
[ randomgene unrot poke ] ]
|
|
do ] is mutate ( $ --> $ )
|
|
|
|
200 randomsequence
|
|
dup prettyprint cr cr dup tallybases
|
|
cr cr say "Mutating..." cr
|
|
10 times mutate
|
|
dup prettyprint cr cr tallybases
|