On Nov 17, 2010, at 2:40 AM, Eli Barzilay wrote:

>   (define (alist->string alist)
>      (string-join
>       (for/list ([a (in-list alist)])
>         (format "~a=~a" (car a) (cdr a)))
>       " "))


Somewhat more 'native': 

(define (alist->string l) 
  (string-join 
    (map (lambda (x) (format "~s=~s" (car x) (cdr x))) l) " "))

in the sense that map preceded our for/ loops by 4 decades. 

-- Matthias

_________________________________________________
  For list-related administrative tasks:
  http://lists.racket-lang.org/listinfo/users

Reply via email to