Paris8/iaj
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
This repository has been archived on 2023-04-18. You can view files and clone it, but cannot push or open issues or pull requests.
iaj/TP1/Prolog/AidesCPP/fac.pl

9 lines
100 B
Perl
Raw Normal View History

add "utiliser-swipl-en-cpp.tgz"
2023-02-01 10:10:53 +01:00
fac(1,1):- !.
fac(X,F):-
X > 1,
Y is X - 1,
fac( Y, Next ),
F is X * Next.
format
2023-02-01 10:19:02 +01:00
% ?- fac(3, X).
Reference in a new issue Copy permalink