AuK/Durchläufe durch Graphen SS12

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
<code id="4f68afe40f6c1">(define dfs (lambda (knoten besucht)
              (cond
                [(null? knoten) besucht]
                [else
                 (dfs (cdr knoten) (cons (car knoten) besucht))
                 (dfs (cdr knoten) besucht)])))</code>

<run id="4f68afe40f72f">(dfs '(1 2 3) '())</run>