Re: Monk DNA

[Jasper]

in reply to Monk DNA

I prefer my dna dynamically generated :)

#!perl
$a=S->n;$b=S->n;while($t<2e3){@o=();$a->g,$b->g for 0..200;
@o[$a->g,$b->g,30]=($a->l,$b->l,$/);print map$_||++$t&&$",@o
}package S;sub n{bless{v=>"-"x$n++.25},pop}sub g{$s=pop;15+
int($s->{p}+=($s->{v}+=$s->a)/1000)/$n}sub a{-$_[0]->{p}/1000
}sub l{(perlmonks=~/./g)[$_[0]->{i}*=++$_[0]->{i}>8?0:1]}

Jasper