Function: TREE-ITER-WIDE-SEARCH

Source

(defun tree-iter-wide-search (start goal-p successors cost-fn
			      &key (width 1) (max 100))
  (unless (> width max)
    (or (tree-beam-search start goal-p successors cost-fn width)
	(tree-iter-wide-search start goal-p successors cost-fn
			  :width (+ width 1) :max max))))