Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

/PROG/SICP CHALLENGE

Name: Anonymous 2008-09-01 7:21

IMPLEMENT THE COLLECTOR!!!

(((((o) 'a) 'b) 'c)) ; => (a b c)

Name: Anonymous 2008-09-01 8:40

(define (o)

  (let ((lst ()))

    (define (collect . x)

      (cond ((null? x)

             lst)

            (#t

             (set! lst (append lst x))

             collect)))

    collect))

Newer Posts