1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-18 08:42:11 +03:00
Idris2/tests/idris2/interactive005/expected
Edwin Brady a972778eab Add test script
They don't all pass yet, for minor reasons. Coming shortly...
Unfortunately the startup overhead for chez is really noticeable here!
2020-05-19 18:25:18 +01:00

15 lines
501 B
Plaintext

1/1: Building IEdit (IEdit.idr)
Main> my_cong x x Refl = Refl
Main> my_curry f x y = f (x, y)
Main> my_uncurry f x = f (fst x) (snd x)
Main> append [] ys = ys
append (x :: xs) ys = x :: append xs ys
Main> lappend [] ys = ys
lappend (x :: xs) ys = x :: lappend xs ys
Main> zipWith f [] ys = []
zipWith f (x :: xs) (y :: ys) = f x y :: zipWith f xs ys
Main> lookup Here (ECons x es) = x
lookup (There p) (ECons x es) = lookup p es
Main> Main.my_uncurry : (a -> b -> c) -> (a, b) -> c
Main> Bye for now!