wmi-parprog/06_prolog/fac.pl
Arkadiusz Hypki 368c765c92 '06_Prolog;'
2024-04-15 13:40:54 +02:00

10 lines
146 B
Prolog

fac(0,1).
fac(1,1).
fac(2,2).
fac(3,6).
fac(4,24).
fac(A,B) :-
A > 0,
fac(C,D),
C is A-1,
B is A*D.