/* -*-c-*-
*
- * $Id: anagram.c,v 1.2 2004/04/08 01:36:19 mdw Exp $
+ * $Id$
*
* Matches anagrams and subgrams
*
q = p + sz;
while (p < q) {
i = (unsigned char)*p++;
- if (!f[i])
+ if (f[i])
+ f[i]--;
+ else if (f['.'])
+ f['.']--;
+ else
return (0);
- f[i]--;
}
return (1);
}