Make the example a bit more interesting

1 files changed, 14 insertions, 2 deletions

diff --git a/examples/fold.fco b/examples/fold.fco
index ea3f5e4..c9b8e5c 100644
--- a/examples/fold.fco
+++ b/examples/fold.fco
@@ -6,7 +6,19 @@ def op(acc x)
     end
 end
 
-# add odd numbers from 1 to 10
+# generate a list from 1 to n
+def range(n)
+    def genrec(l limit n)
+        if <(n limit)
+            @genrec(+(l list(n)) limit +(n 1))
+        else
+            l
+        end
+    end
+    genrec(list() n 0)
+end
+
+# add odd numbers from 0 to 1001
 def main()
-    display(fold(0 op list(1 2 3 4 5 6 7 8 9 10)))
+    display(fold(0 op range(1001)))
 end