edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-01 06:12:57 +03:00
Code Issues Projects Releases Wiki Activity
bf70aa07d2
Idris2-boot/sample/BigVect.yaff
Edwin Brady 63da191e03 FOUR!!!1!!! 
Er, that is to say, evaluation of a 'main' expression
'plus (S (S Z)) (S (S Z))' is now printing the right answer.
2019-04-20 16:54:09 +01:00

97 lines
5.7 KiB
Plaintext
Raw Blame History

data Bool : Type where
False : Bool
True : Bool
{-
plus : Nat -> Nat -> Nat
plus
= \x, y =>
case x of
Z => y
S k => S (plus k y)
-}
data Nat : Type where
Z : Nat
S : Nat -> Nat
data Vect : Nat -> Type -> Type where
Nil : {0 a : Type} -> Vect Z a
Cons : {0 a : Type} -> {0 k : Nat} -> a -> Vect k a -> Vect (S k) a
stuff : Vect ? Bool
stuff = Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
Nil)))))))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
Reference in New Issue View Git Blame Copy Permalink