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

Scheme++

Name: Anonymous 2012-06-16 15:57

I'm implementing Scheme dialect with OOP, default argument values and some other features. How readable is it for you?



(define (fib n (memo . #{ (0 . 1) (1 . 1) }))

  (let ((memoized (: memo get n)))

    (if memoized (cdr memoized)

        (let ((result (+ (fib (- n 1)) (fib (- n 2)))))

          (: memo set! (n . result))

          result))))

Name: Anonymous 2012-06-20 4:36

>>31

to get:



(X Y Z W)

to actually be:



(X 'Y Z W)

based upon what X happens to be, at runtime.

Newer Posts

Scheme++

1 Name: Anonymous 2012-06-16 15:57

32 Name: Anonymous 2012-06-20 4:36

Name: Anonymous 2012-06-16 15:57

Name: Anonymous 2012-06-20 4:36