aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Evolutionary-algorithm/REXX/evolutionary-algorithm-1.rexx
View file

@ -26,7 +26,7 @@ fitness: parse arg x; $=0; do k=1 for Ltar; $=$+(substr(x,k,1)==substr(target,
return $
/*──────────────────────────────────────────────────────────────────────────────────────*/
mutate: parse arg x,rate; $= /*set X to 1st argument, RATE to 2nd.*/
do j=1 for Ltar; r=random(1,100000) /*REXX's max for RANSOM*/
do j=1 for Ltar; r=random(1,100000) /*REXX's max for RANDOM*/
if .00001*r<=rate then $=$ || substr(abc,r//Labc+1, 1)
else $=$ || substr(x ,j , 1)
end /*j*/