module Exercise_8 where

import Data.List
import Data.Ord
import Data.Function

{-WETT-}
shoefa :: (Num a, Ord a) => [a] -> Int
shoefa = length . drop 1 . group . filter (0/=) . map signum
--shoefa = max 0 . pred . length . group . filter (0/=) . map signum
{-TTEW-}