[pypy-svn] r44931 - pypy/dist/pypy/lang/scheme/test
jlg at codespeak.net
jlg at codespeak.net
Wed Jul 11 15:01:59 CEST 2007
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)
+
More information about the Pypy-commit
mailing list