Idris2/tests/idris2/total/total010/PartialWith.idr

11 lines
111 B
Idris
Raw Normal View History

%default total
partial
foo : Nat -> Nat
foo Z = Z
partial
bar : Nat -> Nat
bar n with (0)
bar n | k = foo n