module Exercise_8 where

    import Data.List

    

    
    

    
    
    
    
    

    
    
    

    
    
    

    
    

    
    

    
    
    

    
    

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