11.6 ���������������������{����

���������������C�����������������C

(defun node-equal (a b) (set= a b))

(defun next-states (state)
  (next-block-states state))

(defun goal-search (s g)
  (breadth-first nil s g))

(defun node-operation
  (state1 state2)
  (block-operation state1 state2))

�����������������������D