module Data.SeqHelper (
sequenceHead
, sequenceTail
, unique
) where
import qualified Data.Sequence as Sequence
sequenceHead :: Sequence.Seq a -> Sequence.Seq a
sequenceHead (headS Sequence.:|> _) = headS
sequenceHead _ = Sequence.empty
{-# INLINE sequenceHead #-}
sequenceTail :: Sequence.Seq a -> Sequence.Seq a
sequenceTail (_ Sequence.:<| tailS) = tailS
sequenceTail _ = Sequence.empty
{-# INLINE sequenceTail #-}
unique :: Eq a => Sequence.Seq a -> Sequence.Seq a
unique Sequence.Empty = Sequence.empty
unique (x Sequence.:<| xs) = (Sequence.<|) x (unique (Sequence.filter (x /=) xs))