Idris2/tests/idris2/literate003/expected
Edwin Brady ff48bb2310 Update literate test results
New search heuristic finds a slightly better zipWith, in particular.
2020-07-30 00:08:06 +01:00

15 lines
524 B
Plaintext

1/1: Building IEdit (IEdit.lidr)
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 [] [] = []
> 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!