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

6_6

Name: Anonymous 2007-10-28 6:52

(define fib

  (let ((cont #f))

    (lambda ()

      (if cont

          (call/cc cont)

          (call/cc (lambda (cc)

                     (let loop ((i 0) (j 1))

                       (call/cc (lambda (c)

                                  (set! cont c) (cc j)))

                       (loop j (+ i j)))))))))

Newer Posts