moduleNLP.Adict.Brute(search)whereimportData.Maybe(mapMaybe)importNLP.Adict.CoreimportNLP.Adict.Dist-- | Find all words within a list with restricted generalized edit distance-- from x lower or equall to k.search::Costa->Double->Worda->[(Worda,b)]->[(Worda,b,Double)]searchcostkx=mapMaybecheckwherecheck(y,v)|dist<=k=Just(y,v,dist)|otherwise=Nothingwheredist=editDistcostxy