8-Puzzle, State Definition

(defstruct state

tiles

actions)

(defun copy-state-deeply (state)

(make-state :tiles (copy-list (state-tiles state))

:actions (state-actions state)))

(defun state-blank-pos (state)

(position 0 (state-tiles state) :test '=))

Previous slide

Next slide

Back to first slide

View graphic version