module Exercise_8 where

import Data.List

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