Idris2/tests/idris2/total019/Check.idr

6 lines
99 B
Idris
Raw Normal View History

2023-04-22 06:55:43 +03:00
%default total
foo : List Char -> List Char -> ()
foo (c :: cs) _ = foo (c :: cs) cs
foo _ _ = ()