home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / virus / ddj0491.zip / MORROW.ZIP / OBJWORD.C < prev    next >
Text File  |  1980-03-31  |  512b  |  40 lines
  1. /*** GASystem -- Mike Morrow -- Objective function **/
  2.  
  3. #include "ga.h"
  4.  
  5. void objinit()
  6. {
  7. }
  8.  
  9. FIT_TYPE objective(s, len)
  10. SEQ s;
  11. int len;
  12. {
  13.     FIT_TYPE n;
  14.     unsigned int i;
  15.     static char tgt[] = "HELLOTHERE";
  16.     
  17.     n = 0;
  18.     for(i = 0; i < len && i < sizeof tgt - 1; i++)
  19.         if(tgt[i] == s[i])
  20.             n++;
  21.     
  22.     return n;
  23. }
  24.  
  25. void objshow(s, len, fitness)
  26. SEQ s;
  27. int len;
  28. FIT_TYPE fitness;
  29. {
  30.     printf("%d        ", fitness);
  31.     while(len--) printf(" %c", *s++);
  32.     puts("");
  33. }
  34.  
  35. void objdumpdone()
  36. {
  37.  
  38. }
  39.  
  40.