28.01.2015 Views

AI 08226 Prolog (PROgramming in LOGic) - Department of ...

AI 08226 Prolog (PROgramming in LOGic) - Department of ...

AI 08226 Prolog (PROgramming in LOGic) - Department of ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

When is a th<strong>in</strong>g a block<br />

109<br />

% block/5<br />

% block(Xagent, Yagent, , Direction, Xobject, Yobject).<br />

% Only need to def<strong>in</strong>e spaceblock cases<br />

% Top left is orig<strong>in</strong> <strong>in</strong> this world<br />

block(X, Y1, up, X, Y2):- Y2 is Y1-1, 1, !.<br />

block(X, Y1, down, X, Y2):- Y2 is Y1+1, !.<br />

block(X1, Y, left, X2, Y):- X2 is X1-1, 1, !.<br />

block(X1, Y, right, X2, Y):- X2 is X1-1, 1, !.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!