Contents

(load "lazier.scm")
(load "prelude.scm")

(lazy-def 'rev
 '((lambda (f) (f end-of-output))
     ((lambda (x) (x x))
      (lambda (self dst src)
        (if>= (car src) 256
              dst
              (self self (cons (car src) dst) (cdr src)) )))))

(print-as-unlambda (laze 'rev))

Version data entries

4 entries across 4 versions & 1 rubygems

Version	Path
razyk-0.2.0	examples/reverse.scm
razyk-0.1.0	examples/reverse.scm
razyk-0.0.1	examples/reverse.scm
razyk-0.0.0	examples/reverse.scm