mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-22 04:11:31 +03:00
34 lines
677 B
Plaintext
34 lines
677 B
Plaintext
data Bool : Type where
|
|
False : Bool
|
|
True : Bool
|
|
|
|
not : Bool -> Bool
|
|
not False = True
|
|
not True = False
|
|
|
|
data Nat : Type where
|
|
Z : Nat
|
|
S : Nat -> Nat
|
|
|
|
plus : Nat -> Nat -> Nat
|
|
plus Z y = y
|
|
plus (S k) y = S (plus k y)
|
|
|
|
data Vect : ? -> Type -> Type where
|
|
Nil : Vect Z a
|
|
Cons : a -> Vect k a -> Vect (S k) a
|
|
|
|
append : Vect n a -> Vect m a -> Vect (plus n m) a
|
|
append Nil ys = ?appNil
|
|
append (Cons x xs) ys = ?appCons
|
|
|
|
app2 : Vect n a -> Vect m a -> Vect (plus n m) a
|
|
|
|
data Pair : Type -> Type -> Type where
|
|
MkPair : a -> b -> Pair a b
|
|
|
|
zip : Vect n a -> Vect n b -> Vect n (Pair a b)
|
|
|
|
zipWith : (a -> b -> c) -> Vect n a -> Vect n b -> Vect n c
|
|
|