RosettaCodeData/Task/Evolutionary-algorithm/J/evolutionary-algorithm-2.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

6 lines
239 B
Text

filter=: {: ,~ ({~ i.@>.&.(%&20)@#) NB. take every 20th and last item
filter evolve 'METHINKS IT IS LIKE A WEASEL'
XXURVQXKQXDLCGFVICCUA NUQPND
MEFHINVQQXT IW LIKEUA WEAPEL
METHINVS IT IW LIKEUA WEAPEL
METHINKS IT IS LIKE A WEASEL