All pastes #775511 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-11-15 16:59 UTC
rendered paste body
(defun mydfs (graph root function cur-tour)
  (if (not (find root cur-tour))
      (iterate-neighbors root
			 (progn (print root)
				(funcall function root)
				(push root cur-tour)
				(mydfs graph root function cur-tour)))))