module Exercise_8 where

import Data.List

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