ahypki
/
wmi-parprog
12
16
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
wmi-parprog/06_prolog/fac.pl

10 lines
146 B
Prolog
Raw Blame History

fac(0,1).
fac(1,1).
fac(2,2).
fac(3,6).
fac(4,24).
fac(A,B) :-
A > 0,
C is A-1,
fac(C,D),
B is A*D.
Reference in New Issue View Git Blame Copy Permalink