agent.prolog


1
2
3
4
5
6
7
8
9
10
11
12
13
14


:- module(agent, [look/0, move/1]).


look :-
    write('looking\n').


move(D) :-
    here(L),
    connects(L,N,D),
    retract(here(L)),
    asserta(here(N)), !.