monotone.hs

-- | Split into strictly monotone slices
strictlyMonotone :: Ord a => [a] -> [[a]]
strictlyMonotone [] = []
strictlyMonotone (x:xs) = go [x] xs
  where
        go buf [] = []
        go bs@(b:_) (x:xs) | x > b
                           = go (x:bs) xs
                           | otherwise
                           = reverse bs : go [x] xs