module Exercise_8 where import Data.List import Foreign.Marshal.Utils {-WETT-} shoefa :: (Num a, Ord a) => [a] -> Int shoefa = length . drop 1 . group . map signum . filter toBool {-TTEW-}