1 files changed, 14 insertions, 0 deletions
diff --git a/agent.prolog b/agent.prolog
new file mode 100644
index 0000000..338b3f2
--- /dev/null
+++ b/agent.prolog
@@ -0,0 +1,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)), !.
+