home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume11 / jotto / part01 / isis.c < prev    next >
C/C++ Source or Header  |  1990-12-11  |  444b  |  26 lines
  1. /*
  2.  *    isis
  3.  */
  4.  
  5. #include "jotto.h"
  6.  
  7. isis(guess, array, alen)
  8. char    *guess, *array[];
  9. int alen;
  10. {
  11.     int    count[WORDLEN+1];
  12.     int i, retval, lim;
  13.     static int start = 0;
  14.  
  15.     lim = alen<64? alen: 64;
  16.     for (i=0; i<=WORDLEN; i++) count[i] = 0;
  17.     for (i=0; i<lim; i++) {
  18.         start += 29;
  19.         if (start >= alen) start %= alen;
  20.         count[inter(guess, array[start])]++;
  21.     }
  22.     retval = 0;
  23.     for (i=0; i<=WORDLEN; i++) retval -= count[i]*blog(count[i]);
  24.     return retval;
  25. }
  26.