From 1a2b6841604558266f2cbf5bcf1373ea257183c9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 27 Nov 2014 02:03:19 -0400
Subject: + Added some very basic pattern-matching with destructuring.

---
 src/example/test1.lang | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/example')

diff --git a/src/example/test1.lang b/src/example/test1.lang
index da3d3fa87..43f3111fa 100644
--- a/src/example/test1.lang
+++ b/src/example/test1.lang
@@ -7,3 +7,10 @@
     (#Cons [val (repeat (-' n 1) val)])))
 
 (repeat 5 5)
+
+(def (fold f init inputs)
+  (case inputs
+    (#Nil [])            init
+    (#Cons [head tail]) (fold f (f init head) tail)))
+
+(fold * 1 (repeat 5 5))
-- 
cgit v1.2.3