Entry 1966

Gauche Continuation

Submitted by anonymous on June 29, 2009 at 5:55 p.m.
Language: Scheme. Code size: 114 bytes.

(define (fact/cps n cont)
  (if (= n 0)
      (cont 1)
      (fact/cps (- n 1) (lambda (a) (cont (* n a))))))

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.