2 lines
64 B
Prolog
2 lines
64 B
Prolog
fact(X, 1) :- X<2.
|
|
fact(X, F) :- Y is X-1, fact(Y,Z), F is Z*X.
|
fact(X, 1) :- X<2.
|
|
fact(X, F) :- Y is X-1, fact(Y,Z), F is Z*X.
|