Initial commit

1 files changed, 17 insertions, 0 deletions

diff --git a/examples/working/fold.ey b/examples/working/fold.ey
new file mode 100644
index 0000000..4cae734
--- /dev/null
+++ b/examples/working/fold.ey
@@ -0,0 +1,17 @@
+{ =f =a a len =l
+  l {
+    0 a *
+    1 l 1 sub range { a * f * } each
+    } { "fold on empty array" die }
+  ? *
+} /fold deff
+
+{ =f _ len =l l dearray f l 1 sub rep } /foldshort deff
+
+{ =f { f fold } } /enfold deff
+
+[ 1 2 3 ]
+_ |add fold dump
+_ |add foldshort dump
+_ |add enfold * dump
+-