Copyright	(c) gspia 2020-
License	BSD
Maintainer	gspia
Safe Haskell	Safe
Language	Haskell2010

Fcf.Alg.List

Description

Fcf.Alg.List

Type-level ListF to be used with Cata, Ana and Hylo.

This module also contains other list-related functions (that might move to other place some day).

Synopsis

data ListF a b
- = ConsF a b
- | NilF
data ListToFix :: [a] -> Exp (Fix (ListF a))
data LenAlg :: Algebra (ListF a) Nat
data SumAlg :: Algebra (ListF Nat) Nat
data ProdAlg :: Algebra (ListF Nat) Nat
data Sum :: [Nat] -> Exp Nat
data Partition :: (a -> Exp Bool) -> [a] -> Exp ([a], [a])
data PartHelp :: (a -> Exp Bool) -> a -> ([a], [a]) -> Exp ([a], [a])
data Intersperse :: a -> [a] -> Exp [a]
data PrependToAll :: a -> [a] -> Exp [a]
data Intercalate :: [a] -> [[a]] -> Exp [a]
data Span :: (a -> Exp Bool) -> [a] -> Exp ([a], [a])
data Break :: (a -> Exp Bool) -> [a] -> Exp ([a], [a])
data IsPrefixOf :: [a] -> [a] -> Exp Bool
type family IsPrefixOf_ (xs :: [a]) (ys :: [a]) :: Bool where ...
data IsSuffixOf :: [a] -> [a] -> Exp Bool
data IsInfixOf :: [a] -> [a] -> Exp Bool
data Tails :: [a] -> Exp [[a]]
data And :: [Bool] -> Exp Bool
data All :: (a -> Exp Bool) -> [a] -> Exp Bool
data Or :: [Bool] -> Exp Bool
data Any :: (a -> Exp Bool) -> [a] -> Exp Bool
data Snoc :: [a] -> a -> Exp [a]
data ToList :: a -> Exp [a]
data Equal :: [a] -> [a] -> Exp Bool

Documentation

>>> import           Fcf.Combinators

data ListF a b Source #

Base functor for a list of type [a].

Constructors

ConsF a b
NilF

Instances

type Eval (ListToFix (a2 ': as) :: Fix (ListF a1) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (ListToFix (a2 ': as) :: Fix (ListF a1) -> Type) = Fix (ConsF a2 (Eval (ListToFix as)))
type Eval (ListToFix ([] :: [a]) :: Fix (ListF a) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (ListToFix ([] :: [a]) :: Fix (ListF a) -> Type) = Fix (NilF :: ListF a (Fix (ListF a)))
type Eval (Map f (ConsF a3 b2) :: ListF a2 b1 -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Map f (ConsF a3 b2) :: ListF a2 b1 -> Type) = ConsF a3 (Eval (f b2))
type Eval (Map f (NilF :: ListF a2 a1) :: ListF a2 b -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Map f (NilF :: ListF a2 a1) :: ListF a2 b -> Type) = (NilF :: ListF a2 b)

data ListToFix :: [a] -> Exp (Fix (ListF a)) Source #

ListToFix can be used to turn a norma type-level list into the base functor type ListF, to be used with e.g. Cata. For examples in use, see LenAlg and SumAlg.

Ideally, we would have one ToFix type-level function for which we could give type instances for different type-level types, like lists, trees etc. See TODO.md.

Instances

type Eval (ListToFix (a2 ': as) :: Fix (ListF a1) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (ListToFix (a2 ': as) :: Fix (ListF a1) -> Type) = Fix (ConsF a2 (Eval (ListToFix as)))
type Eval (ListToFix ([] :: [a]) :: Fix (ListF a) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (ListToFix ([] :: [a]) :: Fix (ListF a) -> Type) = Fix (NilF :: ListF a (Fix (ListF a)))

data LenAlg :: Algebra (ListF a) Nat Source #

Example algebra to calculate list length.

>>> :kind! Eval (Cata LenAlg =<< ListToFix '[1,2,3])
Eval (Cata LenAlg =<< ListToFix '[1,2,3]) :: Nat
= 3

Instances

type Eval (LenAlg (ConsF a2 b) :: Nat -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (LenAlg (ConsF a2 b) :: Nat -> Type) = 1 + b
type Eval (LenAlg (NilF :: ListF a Nat) :: Nat -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (LenAlg (NilF :: ListF a Nat) :: Nat -> Type) = 0

data SumAlg :: Algebra (ListF Nat) Nat Source #

Example algebra to calculate the sum of Nats in a list.

>>> :kind! Eval (Cata SumAlg =<< ListToFix '[1,2,3,4])
Eval (Cata SumAlg =<< ListToFix '[1,2,3,4]) :: Nat
= 10

Instances

type Eval (SumAlg (ConsF a b) :: Nat -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (SumAlg (ConsF a b) :: Nat -> Type) = a + b
type Eval (SumAlg (NilF :: ListF Nat Nat)) Source #
Instance details Defined in Fcf.Alg.List type Eval (SumAlg (NilF :: ListF Nat Nat)) = 0

data ProdAlg :: Algebra (ListF Nat) Nat Source #

Example algebra to calculate the prod of Nats in a list.

>>> :kind! Eval (Cata ProdAlg =<< ListToFix '[1,2,3,4])
Eval (Cata ProdAlg =<< ListToFix '[1,2,3,4]) :: Nat
= 24

Instances

type Eval (ProdAlg (ConsF a b) :: Nat -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (ProdAlg (ConsF a b) :: Nat -> Type) = a * b
type Eval (ProdAlg (NilF :: ListF Nat Nat)) Source #
Instance details Defined in Fcf.Alg.List type Eval (ProdAlg (NilF :: ListF Nat Nat)) = 1

data Sum :: [Nat] -> Exp Nat Source #

Sum a Nat-list.

Example

Expand

>>> :kind! Eval (Sum '[1,2,3])
Eval (Sum '[1,2,3]) :: Nat
= 6

Instances

type Eval (Sum ns :: Nat -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Sum ns :: Nat -> Type) = Eval (Foldr (+) 0 ns)

data Partition :: (a -> Exp Bool) -> [a] -> Exp ([a], [a]) Source #

Partition

Example

Expand

>>> :kind! Eval (Fcf.Alg.List.Partition ((>=) 35) '[ 20, 30, 40, 50])
Eval (Fcf.Alg.List.Partition ((>=) 35) '[ 20, 30, 40, 50]) :: ([Nat],
                                                               [Nat])
= '( '[20, 30], '[40, 50])

Instances

type Eval (Partition p lst :: ([a], [a]) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Partition p lst :: ([a], [a]) -> Type) = Eval (Foldr (PartHelp p) ((,) ([] :: [a]) ([] :: [a])) lst)

data PartHelp :: (a -> Exp Bool) -> a -> ([a], [a]) -> Exp ([a], [a]) Source #

Instances

type Eval (PartHelp p a2 ((,) xs ys) :: ([a1], [a1]) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (PartHelp p a2 ((,) xs ys) :: ([a1], [a1]) -> Type) = If (Eval (p a2)) ((,) (a2 ': xs) ys) ((,) xs (a2 ': ys))

data Intersperse :: a -> [a] -> Exp [a] Source #

Intersperse for type-level lists.

Example

Expand

>>> :kind! Eval (Intersperse 0 '[1,2,3,4])
Eval (Intersperse 0 '[1,2,3,4]) :: [Nat]
= '[1, 0, 2, 0, 3, 0, 4]

Instances

type Eval (Intersperse _ ([] :: [a]) :: [a] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Intersperse _ ([] :: [a]) :: [a] -> Type) = ([] :: [a])
type Eval (Intersperse sep (x ': xs) :: [a] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Intersperse sep (x ': xs) :: [a] -> Type) = x ': Eval (PrependToAll sep xs)

data PrependToAll :: a -> [a] -> Exp [a] Source #

Instances

type Eval (PrependToAll sep (x ': xs) :: [a] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (PrependToAll sep (x ': xs) :: [a] -> Type) = sep ': (x ': Eval (PrependToAll sep xs))
type Eval (PrependToAll _ ([] :: [a]) :: [a] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (PrependToAll _ ([] :: [a]) :: [a] -> Type) = ([] :: [a])

data Intercalate :: [a] -> [[a]] -> Exp [a] Source #

Intercalate for type-level lists.

Example

Expand

>>> :kind! Eval (Intercalate '[", "] '[ '["Lorem"], '["ipsum"], '["dolor"] ])
Eval (Intercalate '[", "] '[ '["Lorem"], '["ipsum"], '["dolor"] ]) :: [TL.Symbol]
= '["Lorem", ", ", "ipsum", ", ", "dolor"]

Instances

type Eval (Intercalate xs xss :: [a] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Intercalate xs xss :: [a] -> Type) = Eval ((Concat :: [[a]] -> [a] -> Type) =<< Intersperse xs xss)

data Span :: (a -> Exp Bool) -> [a] -> Exp ([a], [a]) Source #

Span, applied to a predicate p and a type-level list xs, returns a type-level tuple where first element is longest prefix (possibly empty) of xs of elements that satisfy p and second element is the remainder of the list:

Example

Expand

>>> :kind! Eval (Span (Flip (<) 3) '[1,2,3,4,1,2,3,4])
Eval (Span (Flip (<) 3) '[1,2,3,4,1,2,3,4]) :: ([Nat], [Nat])
= '( '[1, 2], '[3, 4, 1, 2, 3, 4])

>>> :kind! Eval (Span (Flip (<) 9) '[1,2,3])
Eval (Span (Flip (<) 9) '[1,2,3]) :: ([Nat], [Nat])
= '( '[1, 2, 3], '[])

>>> :kind! Eval (Span (Flip (<) 0) '[1,2,3])
Eval (Span (Flip (<) 0) '[1,2,3]) :: ([Nat], [Nat])
= '( '[], '[1, 2, 3])

Instances

type Eval (Span p lst :: ([a], [a]) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Span p lst :: ([a], [a]) -> Type) = (,) (Eval (TakeWhile p lst)) (Eval (DropWhile p lst))

data Break :: (a -> Exp Bool) -> [a] -> Exp ([a], [a]) Source #

Break, applied to a predicate p and a type-level list xs, returns a type-level tuple where first element is longest prefix (possibly empty) of xs of elements that do not satisfy p and second element is the remainder of the list:

Example

Expand

>>> :kind! Eval (Break (Flip (>) 3) '[1,2,3,4,1,2,3,4])
Eval (Break (Flip (>) 3) '[1,2,3,4,1,2,3,4]) :: ([Nat], [Nat])
= '( '[1, 2, 3], '[4, 1, 2, 3, 4])

>>> :kind! Eval (Break (Flip (<) 9) '[1,2,3])
Eval (Break (Flip (<) 9) '[1,2,3]) :: ([Nat], [Nat])
= '( '[], '[1, 2, 3])

>>> :kind! Eval (Break (Flip (>) 9) '[1,2,3])
Eval (Break (Flip (>) 9) '[1,2,3]) :: ([Nat], [Nat])
= '( '[1, 2, 3], '[])

Instances

type Eval (Break p lst :: ([a], [a]) -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Break p lst :: ([a], [a]) -> Type) = Eval (Span (Not <=< p) lst)

data IsPrefixOf :: [a] -> [a] -> Exp Bool Source #

IsPrefixOf takes two type-level lists and returns true iff the first list is a prefix of the second.

Example

Expand

>>> :kind! Eval (IsPrefixOf '[0,1,2] '[0,1,2,3,4,5])
Eval (IsPrefixOf '[0,1,2] '[0,1,2,3,4,5]) :: Bool
= 'True

>>> :kind! Eval (IsPrefixOf '[0,1,2] '[0,1,3,2,4,5])
Eval (IsPrefixOf '[0,1,2] '[0,1,3,2,4,5]) :: Bool
= 'False

>>> :kind! Eval (IsPrefixOf '[] '[0,1,3,2,4,5])
Eval (IsPrefixOf '[] '[0,1,3,2,4,5]) :: Bool
= 'True

>>> :kind! Eval (IsPrefixOf '[0,1,3,2,4,5] '[])
Eval (IsPrefixOf '[0,1,3,2,4,5] '[]) :: Bool
= 'False

Instances

type Eval (IsPrefixOf xs ys :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (IsPrefixOf xs ys :: Bool -> Type) = IsPrefixOf_ xs ys

type family IsPrefixOf_ (xs :: [a]) (ys :: [a]) :: Bool where ... Source #

Equations

IsPrefixOf_ '[] _ = True
IsPrefixOf_ _ '[] = False
IsPrefixOf_ (x ': xs) (y ': ys) = Eval (Eval (TyEq x y) && IsPrefixOf_ xs ys)

data IsSuffixOf :: [a] -> [a] -> Exp Bool Source #

IsSuffixOf take two type-level lists and returns true iff the first list is a suffix of the second.

Example

Expand

>>> :kind! Eval (IsSuffixOf '[3,4,5] '[0,1,2,3,4,5])
Eval (IsSuffixOf '[3,4,5] '[0,1,2,3,4,5]) :: Bool
= 'True

>>> :kind! Eval (IsSuffixOf '[3,4,5] '[0,1,3,2,4,5])
Eval (IsSuffixOf '[3,4,5] '[0,1,3,2,4,5]) :: Bool
= 'False

>>> :kind! Eval (IsSuffixOf '[] '[0,1,3,2,4,5])
Eval (IsSuffixOf '[] '[0,1,3,2,4,5]) :: Bool
= 'True

>>> :kind! Eval (IsSuffixOf '[0,1,3,2,4,5] '[])
Eval (IsSuffixOf '[0,1,3,2,4,5] '[]) :: Bool
= 'False

Instances

type Eval (IsSuffixOf xs ys :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (IsSuffixOf xs ys :: Bool -> Type) = Eval (IsPrefixOf ((Reverse :: [a] -> [a] -> Type) @@ xs) ((Reverse :: [a] -> [a] -> Type) @@ ys))

data IsInfixOf :: [a] -> [a] -> Exp Bool Source #

IsInfixOf take two type-level lists and returns true iff the first list is a infix of the second.

Example

Expand

>>> :kind! Eval (IsInfixOf '[2,3,4]  '[0,1,2,3,4,5,6])
Eval (IsInfixOf '[2,3,4]  '[0,1,2,3,4,5,6]) :: Bool
= 'True

>>> :kind! Eval (IsInfixOf '[2,4,4]  '[0,1,2,3,4,5,6])
Eval (IsInfixOf '[2,4,4]  '[0,1,2,3,4,5,6]) :: Bool
= 'False

Instances

type Eval (IsInfixOf xs ys :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (IsInfixOf xs ys :: Bool -> Type) = Eval (Any (IsPrefixOf xs) =<< Tails ys)

data Tails :: [a] -> Exp [[a]] Source #

Tails

Example

Expand

>>> :kind! Eval (Tails '[0,1,2,3])
Eval (Tails '[0,1,2,3]) :: [[Nat]]
= '[ '[0, 1, 2, 3], '[1, 2, 3], '[2, 3], '[3]]

Instances

type Eval (Tails (a2 ': as) :: [[a1]] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Tails (a2 ': as) :: [[a1]] -> Type) = (a2 ': as) ': Eval (Tails as)
type Eval (Tails ([] :: [a]) :: [[a]] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Tails ([] :: [a]) :: [[a]] -> Type) = ([] :: [[a]])

data And :: [Bool] -> Exp Bool Source #

Give true if all of the booleans in the list are true.

Example

Expand

>>> :kind! Eval (And '[ 'True, 'True])
Eval (And '[ 'True, 'True]) :: Bool
= 'True

>>> :kind! Eval (And '[ 'True, 'True, 'False])
Eval (And '[ 'True, 'True, 'False]) :: Bool
= 'False

Instances

type Eval (And lst :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (And lst :: Bool -> Type) = Eval (Foldr (&&) True lst)

data All :: (a -> Exp Bool) -> [a] -> Exp Bool Source #

Type-level All.

Example

Expand

>>> :kind! Eval (All (Flip (<) 6) '[0,1,2,3,4,5])
Eval (All (Flip (<) 6) '[0,1,2,3,4,5]) :: Bool
= 'True

>>> :kind! Eval (All (Flip (<) 5) '[0,1,2,3,4,5])
Eval (All (Flip (<) 5) '[0,1,2,3,4,5]) :: Bool
= 'False

Instances

type Eval (All p lst :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (All p lst :: Bool -> Type) = Eval (And =<< Map p lst)

data Or :: [Bool] -> Exp Bool Source #

Give true if any of the booleans in the list is true.

Example

Expand

>>> :kind! Eval (Or '[ 'True, 'True])
Eval (Or '[ 'True, 'True]) :: Bool
= 'True

>>> :kind! Eval (Or '[ 'False, 'False])
Eval (Or '[ 'False, 'False]) :: Bool
= 'False

Instances

type Eval (Or lst :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Or lst :: Bool -> Type) = Eval (Foldr (\|\|) False lst)

data Any :: (a -> Exp Bool) -> [a] -> Exp Bool Source #

Type-level Any.

Example

Expand

>>> :kind! Eval (Any (Flip (<) 5) '[0,1,2,3,4,5])
Eval (Any (Flip (<) 5) '[0,1,2,3,4,5]) :: Bool
= 'True

>>> :kind! Eval (Any (Flip (<) 0) '[0,1,2,3,4,5])
Eval (Any (Flip (<) 0) '[0,1,2,3,4,5]) :: Bool
= 'False

Instances

type Eval (Any p lst :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Any p lst :: Bool -> Type) = Eval (Or =<< Map p lst)

data Snoc :: [a] -> a -> Exp [a] Source #

Snoc for type-level lists.

Example

Expand

>>> :kind! Eval (Snoc '[1,2,3] 4)
Eval (Snoc '[1,2,3] 4) :: [Nat]
= '[1, 2, 3, 4]

Instances

type Eval (Snoc lst a :: [k] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Snoc lst a :: [k] -> Type) = Eval (lst ++ (a ': ([] :: [k])))

data ToList :: a -> Exp [a] Source #

ToList for type-level lists.

Example

Expand

>>> :kind! Eval (ToList 1)
Eval (ToList 1) :: [Nat]
= '[1]

Instances

type Eval (ToList a :: [k] -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (ToList a :: [k] -> Type) = a ': ([] :: [k])

data Equal :: [a] -> [a] -> Exp Bool Source #

Equal tests for list equality. We may change the name to (==).

Example

Expand

>>> :kind! Eval (Equal '[1,2,3] '[1,2,3])
Eval (Equal '[1,2,3] '[1,2,3]) :: Bool
= 'True

>>> :kind! Eval (Equal '[1,2,3] '[1,3,2])
Eval (Equal '[1,2,3] '[1,3,2]) :: Bool
= 'False

Instances

type Eval (Equal as bs :: Bool -> Type) Source #
Instance details Defined in Fcf.Alg.List type Eval (Equal as bs :: Bool -> Type) = Eval (And =<< ZipWith (TyEq :: b -> b -> Bool -> Type) as bs)