mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-25 14:28:05 +02:00
5 lines
89 B
Perl
5 lines
89 B
Perl
|
even(0).
|
||
|
|
even(X) :- X>0, X1 is X-1, odd(X1).
|
||
|
|
|
||
|
|
odd(1).
|
||
|
|
odd(X) :- X>1, X1 is X-1, even(X1).
|