CoCalc -- zahlen-bis-10.pl

📚 The CoCalc Library - books, templates and other resources

¹³²⁹³⁸ views
License: OTHER

1
nat(1).
2
nat(X) :- nat(X1),X is X1+1.
3
nat10(X) :- nat(X), ( X > 10 -> !, fail ; true ).
4