Untitled

module Rekursiv where
import Data.List
import Translator

--parser för att konvertera en lång sträng till en lista av strängar där varje index representerar ett ord
parser :: String -> [String]
parser string
        | (elemIndices ' ' string  /= [])               = (take (head (elemIndices ' ' string)) string):(parser (drop (head (elemIndices ' ' string) +1) string))
        | (not (null string))                                   = [string]
        | otherwise                                                     = []

--huvudmetod, startar översättningen
dansk :: String -> Int
dansk string = en2ni (parser string)