module Exercise_8 where

import Data.List
import Data.Function

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