cookbook-0.1.3.0: Cookbook/Continuous.hs

{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE MultiParamTypeClasses #-}

module Cookbook.Continuous(Continuous(..)) where

import Cookbook.Common
import Cookbook.Ingredients.Functional.Break
import Cookbook.Ingredients.Lists.Access

-- | Continuous provides an interface for function overloading. Everything automatically qualifies to be a constrained by class continuous, so no anotation is required in any type signatures.
class Continuous list part where
  
-- | After returns a sub-list after the first element or first occurence of a larger list.
  after :: list -> part -> list
  
-- | Before returns a sub-list before either the first occurence of an element or sublist.
  before :: list -> part -> list

-- | Remove an item from a list, when used on an element, it works the same as rm.
  delete :: list -> part -> list

instance (Eq a) => Continuous [a] a where
  after x c     = tail $ removeBreak (/=c) x
  before x c  = filterBreak (/=c) x
  delete x c  = filter (/= c) x
  
instance (Eq a) => Continuous [a] [a] where
  after [] _ = []
  after x c
    | take (length c) x == c = sub x ((length c))
    | otherwise = after (tail x) c

  before [] _ = []
  before x c
    | take (length c) x == c = []
    | otherwise = (head x) : before (tail x) c

  delete [] _ = []
  delete x c
    | not (x `contains` c) = x
    | otherwise = (before x c) ++ delete (after x c) c