home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / ustation / hash.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-01-17  |  157 b   |  13 lines
  1. hash(k, siz)
  2. char *k;
  3. int siz;
  4. {
  5.     register s, i;
  6.  
  7.     for (s = i = 0;  k[i] != '\0';  i++)
  8.         s = s*12345 + k[i] + 1;
  9.     if (s < 0)
  10.         s = -s;
  11.     return(s %= siz);
  12. }
  13.