Dear J-ers,
what kind of program improvements would you
consider for this simple genetic algorithm?
ord=: a. i.]
chr=: a.{~]
NB. fitness function
ffit=: [:+/[EMAIL PROTECTED] (**)@:- [EMAIL PROTECTED]
evolueer=: 4 : 0
s=.x ffit y
oud=.y
l=. #y
g=.0
pw=.x
(('gen: '),(":g),'(',(":s),')',oud) (1!:2) 2
while. 0<s do.
p=. 1+?l
tc=. ord (p-1){oud
vk=. (?3){chr (32+?95), (tc+1), tc-1
kind=. vk (p-1)} oud
kinds=. pw ffit kind
if. kinds < s do.
s=. kinds
oud=.kind
end.
g=.g+1
NB. ('gen: ',(":g),'(',(":s),') ',oud) (1!:2) 2
end.
'gen: ',(":g),'(',(":s),') ',oud
)
(] evolueer [:chr 32+[:?95$~#) 'Perfect creature!'
gen: 0(597)Qv_l->[EMAIL PROTECTED]
gen: 1043(0) Perfect creature!
Thanks
=@@i
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
