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

Pages: 1-

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)))))))))

Name: Anonymous 2007-10-28 7:05

(define yawn >>1)

Name: Anonymous 2007-10-28 7:20

Error: undefined variable
>>1
(package user)

Name: Anonymous 2011-11-10 11:29

old thread is old