[plt-scheme] Simple scheme idiom?

Try this:

(define (z-ify atom-or-list)
     (if (pair? atom-or-list)
         `(z ,(map z-ify atom-or-list))
         `(z ,atom-or-list)))

(But don't look at the result in DrScheme.  Using mzscheme, I get:

(z-ify '(a (b c (d)) e ((f)) g))
;; (z ((z a) (z ((z b) (z c) (z ((z d))))) (z e) (z ((z ((z f))))) (z  
g)))

Using DrScheme, I get:

 > (z-ify '(a (b c (d)) e ((f)) g))
(z ((z a) (z ((z b) (z c) (z (#?#)))) (z e) (z ((z (#?#)))) (z g)))

Looks like DrScheme doesn't like to print some of the result.)

Will

On Sep 15, 2006, at 2:17 PM, David Richards wrote:

> '(a (b c (d)) e ((f)) g)