Message-ID:

"A mind is a terrible thing to have leaking out your ears." -- The League of Sadistic Telepaths

devel / comp.lang.lisp / .Re: Depth First Search traversal of this list

.Re: Depth First Search traversal of this list

<t13r8k$1s2t$1@gioia.aioe.org>

https://www.rocksolidbbs.com/devel/article-flat.php?id=16983&group=comp.lang.lisp#16983

Path: i2pn2.org!i2pn.org!aioe.org!ajPN6EJKVKOJGAB2Uci4Hw.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: Depth First Search traversal of this list
Date: Sat, 19 Mar 2022 05:55:35 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <t13r8k$1s2t$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="61533"; posting-host="ajPN6EJKVKOJGAB2Uci4Hw.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: XanaNews/1.18.1.6
X-Notice: Filtered by postfilter v. 0.9.2

by: Robert L. - Sat, 19 Mar 2022 05:55 UTC

Kenny wrote:

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

Shorter.

Gauche, Chicken, or Racket:

(require srfi/48) ;; format for Racket

(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

Subject	Author
.Re: Depth First Search traversal of this list	Robert L.