From a90467d4be3bcf91cab299b4521bf5f762abb1d5 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sun, 9 May 2010 09:30:29 +0000
Subject: added the scheme branch

---
 examples/reverse.fype | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 examples/reverse.fype

(limited to 'examples/reverse.fype')

diff --git a/examples/reverse.fype b/examples/reverse.fype
new file mode 100644
index 0000000..a4384b6
--- /dev/null
+++ b/examples/reverse.fype
@@ -0,0 +1,7 @@
+(def (reverse x)
+	(def (my-reverse x y)
+		(if (null? x)
+		    	y
+		    	(my-reverse (cdr x) (cons (car x) y))))
+	(my-reverse x '()))
+(reverse (list 1 2 3))
-- 
cgit v1.2.3