V target = Array(‘METHINKS IT IS LIKE A WEASEL’)
V alphabet = ‘ ABCDEFGHIJLKLMNOPQRSTUVWXYZ’
V p = 0.05
V c = 100

F neg_fitness(trial)
   R sum(zip(trial, :target).map((t, h) -> Int(t != h)))

F mutate(parent)
   R parent.map(ch -> (I random:() < :p {random:choice(:alphabet)} E ch))

V parent = (0 .< target.len).map(_ -> random:choice(:alphabet))
V i = 0
print((‘#3’.format(i))‘ ’parent.join(‘’))
L parent != target
   V copies = ((0 .< c).map(_ -> mutate(:parent)))
   parent = min(copies, key' x -> neg_fitness(x))
   print((‘#3’.format(i))‘ ’parent.join(‘’))
   i++