module Exercise_8 where

import Data.List
import Test.QuickCheck

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