File: SpellChecker.hs

package info (click to toggle)
haskell-bloomfilter 2.0.1.3-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 196 kB
  • sloc: ansic: 852; haskell: 709; makefile: 13
file content (5 lines) | stat: -rw-r--r-- 194 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
 
import qualified Data.BloomFilter.Easy as BFE

main = do
  filt <- (BFE.easyList 0.01 . words) `fmap` readFile "/usr/share/dict/words"
  interact (unlines . filter (`BFE.notElem` filt) . lines)