Ncit 1st ai lab

AI LAB
By:
Subash Chandra Pakhrin
MSc in Information and Communication Engineering
Kathmandu, Nepal
philpakhrin@gmail.com
+977-9852050900

Lab 1: Monkey and Banana Problem
Monkey is on floor, at door. A block is on floor, at window. Banana is
hanging from roof at the middle of the room. Problem is “How the
monkey can get the banana”.

Prolog Code (Monkey and Banana Problem)
move(state(middle,onbox,middle,hasnot),
grasp,
state(middle,onbox,middle,has)).
move(state(P,onfloor,P,H),
climb,
state(P,onbox,P,H)).

move(state(P1,onfloor,P1,H),
push(P1,P2),
state(P2, onfloor,P2,H)).
move(state(P1,onfloor,B,H),
walk(P1,P2),
state(P2,onfloor,B,H)).

canget(state(_,_,_,has)).
canget(State1) :-
move(State1,_,State2),
canget(State2).

Lab 2: Water Jug Problem
You are given two jugs, a 4 liter one and a 3 liter one, a pump which has
unlimited water which you can use to fill the jug, and the ground on
which water may be poured. Neither jug has any measurement
marking on it.
How can you get exactly 2 liter of water in the 4 liter jug ?

We will represent a state of the problem as a ordered pair (x,y) where x
represents the amount of water in the 4 liter jug and y represents the
amount of water in the 3 liter jug.
Note 0 <= x <= 4, and 0 <= y <= 3.
Our initial state: (0,0)
Goal Predicate - state = (2,y) where 0 <=y<=3

water_jug(X,Y):-X<4,Y>3,write('3L water jug is overflowed.'),nl.
water_jug(X,Y):-X>4,Y>3,write('Both water jugs overflowed.'),nl.
water_jug(X,Y):-(X=:=0,Y=:=0,nl,write('4L:0 & 3L:3 (Action: Fill 3L
jug.)'),YY is 3,water_jug(X,YY));
(X=:=0,Y=:=0,nl,write('4L:4 & 3L=0 (Action: Fill 4L jug.)'),XX is
4,water_jug(XX,Y));

(X=:=2,Y=:=0,nl,write('4L:2 & 3L=0 (Action: Goal State Reached....)'));
(X=:=4,Y=:=0,nl,write('4L:1 & 3L:3 (Action: Pour water from 4L
to 3L jug.)'),XX is X-3, YY is 3, water_jug(XX,YY));
(X=:=0,Y=:=3,nl,write('4L:3 & 3L:0 (Action: Pour water from 3L
jug to 4L jug.)'),XX is 3,YY is 0,water_jug(XX,YY));
(X=:=1,Y=:=3,nl,write('4L:1 & 3L:0 (Action:
Empty 3L jug.)'),YY is 0,water_jug(X,YY));

• (X=:=3,Y=:=0,nl,write('4L:3 & 3L:3 (Action: Fill 3L jug.)'),YY is 3,
water_jug(X,YY));
• (X=:=3,Y=:=3,nl,write('4L:4 & 3L:2 (Action:
Pour water from 3L jug to 4L jug until 4L jug is full.)'),XX is X+1,YY is Y-
1,water_jug(XX,YY));
• (X=:=1,Y=:=0,nl,write('4L:0 & 3L:1 (Action:
Pour water from 4L to 3L jug.)'),XX is Y,YY is X,water_jug(XX,YY));
• (X=:=0,Y=:=1,nl,write('4L:4 & 3L:1 (Action: Fill
4L jug.)'),XX is 4,water_jug(XX,Y));

(X=:=4,Y=:=1,nl,write('4L:2 & 3L:3 (Action: Pour water from 4L jug to 3L
jug until 3L jug is full.)'),XX is X-2,YY is Y+2,water_jug(XX,YY));
Empty 3L jug.)'),YY is 0,water_jug(X,YY));
Empty 4L jug.)'),XX is 0,water_jug(XX,Y));
Pour water from 3L jug to 4L jug.)'),XX is Y,YY is X,water_jug(XX,YY)).

Lab 3: Farmer Crosses River Puzzle
• A farmer wants to crass a river and take with him a wolf, a goat, and a
cabbage.
• There is a boat that can fit himself plus either the wolf, the goat, or
the cabbage.
• If the wolf and the goat are alone on one shore, the wolf will eat the
goat. If the goat and the cabbage are alone on the shore, the goat will
eat the cabbage.
• How can the farmer bring the wolf, the goat, and the cabbage across
the river ?

other_bank(e,w).
other_bank(w,e).
% farmer, wolf, goat, cabbage
move([X,X,Goat,Cabbage],wolf,[Y,Y,Goat,Cabbage]) :- other_bank(X,Y).
move([X,Wolf,X,Cabbage],goat,[Y,Wolf,Y,Cabbage]) :- other_bank(X,Y).

move([X,Wolf,Goat,X],cabbage,[Y,Wolf,Goat,Y]) :- other_bank(X,Y).
move([X,Wolf,Goat,Cabbage],nothing,[Y,Wolf,Goat,Cabbage]) :-
other_bank(X,Y).
safety_check(X,X,_).
safety_check(X,_,X).

safe_status([Man,Wolf,Goat,Cabbage]) :-
safety_check(Man,Goat,Wolf), safety_check(Man,Goat,Cabbage).
solution([e,e,e,e],[]).
solution(Config,[Move|OtherMoves]) :-
move(Config,Move,NextConfig),

safe_status(NextConfig),
solution(NextConfig,OtherMoves).
% length(X,7), solution([w,w,w,w],X).

Ncit 1st ai lab

More Related Content

What's hot (20)

Similar to Ncit 1st ai lab (20)

More from Subash Chandra Pakhrin (20)

Recently uploaded (20)

Ncit 1st ai lab