module Exercise_8 where

  import Data.List

  

  
  

  
  
  
  
  
  

  
  
  
  
  
  

  
  
  

  
  
  

  
  

  
  
  
  

  
  
  

  
  
  

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