(defun goal-search (s g) (breadth-first nil s g))というような形になって,
> (goal-search '(robot at (0 0)) '(robot at (4 3))) ((robot at (0 0)) (robot at (1 0)) (robot at (2 0)) (robot at (3 0)) (robot at (3 1)) (robot at (3 2)) (robot at (4 2)) (robot at (4 3))) > (goal-search '(robot at (0 0)) '(robot at (0 3))) ((robot at (0 0)) (robot at (1 0)) (robot at (2 0)) (robot at (3 0)) (robot at (3 1)) (robot at (2 1)) (robot at (1 1)) (robot at (1 2)) (robot at (0 2)) (robot at (0 3))) > (goal-search '(robot at (0 0)) '(robot at (2 4))) ((robot at (0 0)) (robot at (1 0)) (robot at (2 0)) (robot at (3 0)) (robot at (3 1)) (robot at (3 2)) (robot at (4 2)) (robot at (4 3)) (robot at (3 3)) (robot at (3 4)) (robot at (2 4)))というようになる.