Skip to content

Instantly share code, notes, and snippets.

@axelson

axelson/gist:346438

Created March 27, 2010 23:54
Show Gist options
  • Save axelson/346438 to your computer and use it in GitHub Desktop.
Save axelson/346438 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1
Notes
To start
(aima-load 'all)
(run-environment (make-vacuum-world :aspec '(jason-vacuum)))
(legal-actions (make-vacuum-world :aspec '(jason-vacuum)))
Directions (come from unit vectors)
1>: (1 0)
1^: (0 1)
1<: (-1 0)
1V: (0 -1)
(format t "location: ~A~%" (object-loc agent-body))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment