[pypy-svn] r44931 - pypy/dist/pypy/lang/scheme/test

[jlg at codespeak.net]

Author: jlg
Date: Wed Jul 11 15:01:58 2007
New Revision: 44931

Added:
   pypy/dist/pypy/lang/scheme/test/ex.ss
Log:
example scheme code for lightning talk

Added: pypy/dist/pypy/lang/scheme/test/ex.ss
==============================================================================
--- (empty file)
+++ pypy/dist/pypy/lang/scheme/test/ex.ss	Wed Jul 11 15:01:58 2007
@@ -0,0 +1,24 @@
+(define fac
+  (lambda (n)
+    (if (= n 1)
+      n
+      (* n (fac (- n 1))))))
+(fac 4)
+
+(define adder (lambda (x) (lambda (y) (+ x y))))
+((adder 4) 3)
+
+(letrec ((even?
+           (lambda (n)
+             (if (= n 0)
+               #t
+               (odd? (- n 1)))))
+         (odd?
+           (lambda (n)
+             (if (= n 0)
+               #f
+               (even? (- n 1))))))
+  (even? 12))
+
+(quit)
+