wmi-parprog/06_prolog/fac.pl

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.
'06_Prolog;' 2024-04-15 13:40:54 +02:00			`fac(0,1).`
			`fac(1,1).`
			`fac(2,2).`
			`fac(3,6).`
			`fac(4,24).`
			`fac(A,B) :-`
			`A > 0,`
			`C is A-1,`
'FIxing fac.pl' 2024-04-18 12:32:57 +02:00			`fac(C,D),`
'06_Prolog;' 2024-04-15 13:40:54 +02:00			`B is A*D.`