/*
 *     subroutines
 *
 *     These are worth optimizing in assembly language.
 */

#include "jotto.h"

int
inter(a,b)
char *a, *b;
{
       int retval;
       char *ap, *bp;

       retval = 0;
       for (ap=a; ap<a+WORDLEN; ap++)
       for (bp=b; bp<b+WORDLEN; bp++) if (*ap == *bp) {
               retval++;
               break;
       }
       return retval;
}

int
blog(n)
register int n;
{
       register int retval;
       if (!n--) return 0;
       retval = 0;
       while (n) {n>>=1; retval++;}
       return retval;
}