diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-03-21 03:01:42 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-03-21 03:01:42 +1100 |
| commit | 410fc38f935b552a58af2e716d2fe814eee432c9 (patch) | |
| tree | 606416b2be1b88eb3861c9ee4bb48ec081250741 /main.prolog | |
| parent | c33ee86c272aaac287970a588b8c6dbf6aa52211 (diff) | |
Basic items and look command
Diffstat (limited to 'main.prolog')
| -rw-r--r-- | main.prolog | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/main.prolog b/main.prolog index 5204ef7..ddf7baa 100644 --- a/main.prolog +++ b/main.prolog @@ -3,9 +3,17 @@ :- consult('map.prolog'). :- consult('agent.prolog'). :- consult('read.prolog'). +:- consult('item.prolog'). init :- - retractall(here(X)), + retractall(here(_)), asserta(here(a)), !. + +join([X|Y],R) :- + join(Y,Rx), + atom_concat(X,Rx,R). +join([X],R) :- + R = X. + |