---

Experiment No. 6

OBJECTIVE: WAP to implement Factorial, Fibonacci of a given number.

 

Program:

Factorial:
factorial(0,1).
factorial(N,F) :-
N>0,
N1 is N-1,
factorial(N1,F1),
F is N * F1

Output:

---

Program:

Fibonacci:
fib(0, 0).
fib(X, Y) :- X > 0, fib(X, Y, _).
fib(1, 1, 0).
fib(X, Y1, Y2) :-
X>1,
X1 is X - 1,
fib(X1, Y2, Y3),
Y1 is Y2 + Y3.

Output:

---

 

To Download Complete Artificial Intelligence Lab Manual Click Here

 

 Download Now 

 

---

Artificial Intelligence Lab, AKTU manual, 4^th year, Computer Science and Engineering, Information Technology, Prolog, programming

Artificial Intelligence Lab (RCS752)

Artificial Intelligence Lab Manual AKTU

Artificial Intelligence Lab Manual using Prolog PDF

Artificial Intelligence Lab Notes Download