-- this gives a crappy average of the length of each word that throws away the
-- remainer.

-- 3. We’d really like the answer to be more precise. Can you rewrite that using
-- fractional division?
seekritFuncDouble x = (/) (fromIntegral (sum (map length (words x)))) (fromIntegral (length (words x)))


seekritFuncDouble x = (/) (fromIntegral (sum (map length (words x)))) (fromIntegral (length (words x)))
seekritFuncDouble x = (/) (fromIntegral (sum (map length (words x)))) (fromIntegral (length (words x)))