Idris2/tests/idris2/total019/Check.idr
2023-04-23 17:42:04 +01:00

6 lines
99 B
Idris

%default total
foo : List Char -> List Char -> ()
foo (c :: cs) _ = foo (c :: cs) cs
foo _ _ = ()