10 lines
146 B
Perl
10 lines
146 B
Perl
|
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.
|