Source Code :
fact(0,1).
fact(N,F):-
(
% The below is for +ve factorial.
N>0 ->
(
N1 is N-1,
fact(N1,F1),
F is N*F1
)
;
% The below is for -ve factorial.
N<0 ->
(
N1 is N+1,
fact(N1,F1),
F is N*F1
)
).
Output :
Subscribe to:
Post Comments (Atom)
Write a program in C to convert a decimal number to binary using recursion.
Source code: //Write a program in C to convert a decimal number to binary using recursion. #include<stdio.h> long convertB_to_D(int d...
-
Source Code : fib(0, 1) :- !. fib(1, 1) :- !. fib(N, F) :- N > 1, N1 is N-1, N2 is N-2, ... -
Source Code : palind([]):- write('Palindrome'). palind([_]):- write('palindrome'). palind(L):- append([H|T],... -
Source Code : evenlength:- write('true --> even'). oddlength:- write('true --> odd'). oddeven(...
No comments:
Post a Comment