mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-28 23:37:57 +02:00
3 lines
86 B
Perl
3 lines
86 B
Perl
|
nat(1).
|
||
|
|
nat(X) :- nat(X1),X is X1+1.
|
||
|
|
nat10(X) :- nat(X), ( X > 10 -> !, fail ; true ).
|