module Exercise_8 where

import Data.List
import Data.Maybe
import Data.Ord
import Data.Ratio

{-WETT-}
shoefa :: (Num a, Ord a) => [a] -> Int
shoefa xs =
  max 0 $ length (groupBy (\a b -> signum a == signum b) $ filter (/= 0) xs) - 1

{-TTEW-}