Основи на програмирането. Информационни системи. 2006/07

whiteSpaces=[' ','\n']
spaces=['.',',',':',';','!','?','(',')','*']
getWord [] = []
getWord (s:hs)
          |elem s whiteSpaces = []
          |otherwise = s:getWord hs
dropWord [] = []
dropWord (s:hs)
              |elem s whiteSpaces = s:hs
              |otherwise = dropWord hs
            
dropSpaces [] = []
dropSpaces (s:hs)
                |elem s whiteSpaces =dropSpaces hs
                |otherwise = (s:hs)             
splitWords s
            |s==[]=[]
            |otherwise = (getWord s):splitWords (dropSpaces (dropWord s))

clearWord [] = []
clearWord (s:hs)
           |elem s spaces = clearWord hs
           |otherwise = s:clearWord hs
uniqueWord [] = []          
uniqueWord (s:hs)
            |s==[]=[]
            |elem s hs = uniqueWord hs
            |otherwise = (clearWord s):uniqueWord hs