Spelling suggestions for wrong spelling
I came across this perl script someone wrote for spelling suggestions when someone types a wrong spelling. Can someone please convert it to PHP? It will help a lot of people.
import re, collections
def words(text): return re.findall('[a-z]+', text.lower())
model = collections.defaultdict(lambda: 1)
for f in features:
model[f] += 1
NWORDS = train(words(file('big.txt').read()))
alphabet = 'abcdefghijklmnopqrstuvwxyz'
s = [(word[:i], word[i:]) for i in range(len(word) + 1)]
deletes = [a + b[1:] for a, b in s if b]
transposes = [a + b + b + b[2:] for a, b in s if len(b)>1]
replaces = [a + c + b[1:] for a, b in s for c in alphabet if b]
inserts = [a + c + b for a, b in s for c in alphabet]
return set(deletes + transposes + replaces + inserts)
return set(e2 for e1 in edits1(word) for e2 in edits1(e1) if e2 in NWORDS)
def known(words): return set(w for w in words if w in NWORDS)
candidates = known([word]) or known(edits1(word)) or known_edits2(word) or [word]
return max(candidates, key=NWORDS.get)
Just in case that looks like I am trying to get some kind-hearted people to do my work for me , no, it's just that I have no idea of Perl at all (even if I am okay at PHP), and do not have enough time to learn now . I thank anyone for any help.
Users Browsing this Thread
There are currently 1 users browsing this thread. (0 members and 1 guests)