Idris2-boot/tests/ttimp/perf002/BigVect.yaff
2019-05-20 19:05:28 +01:00

94 lines
5.7 KiB
Plaintext

data Bool : Type where
False : Bool
True : Bool
data Nat : Type where
Z : Nat
S : Nat -> Nat
data Vect : Nat -> Type -> Type where
Nil : Vect Z $a
Cons : $a -> Vect $k $a -> Vect (S $k) $a
-- Throw in a complication :)
namespace List
data List : Type -> Type where
Nil : List $a
Cons : $a -> List $a -> List $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)))))))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))
))))))))))))))))))))))))))))))))))))))))))))))))