Pasted

medellangdHelper :: String -> [(Double, Double)]
medellangdHelper myString = [(if(isAlpha x) then (1,0) else (0,1))| x <- myString]
 
medellangdHelper2 nChars nWords [] = nChars/nWords
medellangdHelper2 nChars nWords myList = medellangdHelper2 (nChars + fst(head myList)) (nWords + snd(head myList)) (tail myList)
 
medellangd :: String -> Double
medellangd myString = medellangdHelper2 0 0 (medellangdHelper myString)