1. Forum
  2. Usenet
  3. COMP.LANG.SCHEME

  • Re: Depth First Search traversal of this list

    From B. Pym@21:1/5 to Kenny on Fri Aug 30 17:31:59 2024
    XPost: comp.lang.lisp

    Kenny wrote:

    (defun tv (x)
    (if (consp x)
    (loop for y in x do (tv y))
    (format t "~a " x)))

    Gauche Scheme

    (define (tv x)
    (if (pair? x) (for-each tv x) (format #t "~a " x)))

    (tv '(j k (l m (n o) p) q))


    j k l m n o p q

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)