OnLisp 的 P.303 上有一段广度优先搜索的伪代码,如下所示。对于下图,它将首先处理节点 1,然后将节点 2、3 和 4 放入队列中,然后再次迭代调用自身。然后,它将继续处理队列开头的节点 4。这反过来会将节点 7 和 8 放入队列的开头,依此类推。
最后,它遍历的路径将是 1->4->7-11->12->8->3->2->5->9->10->6,这是深度优先搜索。我在这里错了吗?
(define (path node1 node2)
(bf-path node2 (list (list node1))))
(define (bf-path dest queue)
(if (null? queue)
'@
(let* ((path (car queue))
(node (car path)))
(if (eq? node dest)
(cdr (reverse path))
(bf-path dest
(append (cdr queue)
(map (lambda (n)
(cons n path))
(neighbors node))))))))