OldEx3 Uppvarmning

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 = if length myList > 1
then (if snd (head myList) == 1 && snd (head (tail myList)) == 1 then medellangdHelper2 (nChars + fst(head myList)) (nWords) (tail myList) else medellangdHelper2 (nChars + fst(head myList)) (nWords + snd(head myList)) (tail myList))
else (if fst (head myList) == 1 then medellangdHelper2 (nChars + fst(head myList)) (nWords + 1) (tail myList) else medellangdHelper2 (nChars) (nWords) (tail myList))

medellangd :: String -> Double
medellangd myString = medellangdHelper2 0 0 (medellangdHelper