module Exercise_8 where

import Data.List
import Data.Ratio
import Foreign.Marshal.Utils

{-WETT-}
shoefa = length . drop 1 . group . map signum . filter toBool

{-
Alternative (uncurried) : 18 tokens
shoefa xs = (length . drop 1 . group . map signum . filter toBool) xs
-}

{-
Alternative : 19 tokens
shoefa xs = length $ drop 1 $ group $ map signum $ filter (/=0) xs
-}
{-TTEW-}