LispForum

I have this problem that require me to win this agent. (defmethod get-percept ((env vacuum-world-radar) agent) (let ((grid (copy-array (vacuum-world-grid env))) (home (grid-environment-start env))) (append (call-next-method) (list grid (grid-environment-start env))))) (defstructure (dumb-traversal-v...

Yes David. Thanks for the great help.

Hi all, I am very new to lisp. I have this function (adopted from vacuum agent problem) (defun find-closest-in-grid (radar type pos-x pos-y) (labels ((distance (x y) (+ (abs (- x pos-x)) (abs (- y pos-y))))) (destructuring-bind (width height) (array-dimensions radar) (let ((best nil) ((best-distance...