diff options
Diffstat (limited to 'examples/working/fold.ey')
| -rw-r--r-- | examples/working/fold.ey | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/examples/working/fold.ey b/examples/working/fold.ey index 9ae19d5..d3b20ce 100644 --- a/examples/working/fold.ey +++ b/examples/working/fold.ey @@ -1,4 +1,6 @@ -{ =f =a a len =l +|defv "==" deff + +{ ==f ==a a len ==l l { 0 a * 1 l 1 sub range { a * f * } each @@ -6,9 +8,9 @@ ? * } /fold deff -{ =f _ len =l l dearray l 1 sub f rep } /foldshort deff +{ ==f _ len ==l l dearray l 1 sub f rep } /foldshort deff -{ =f { f fold } } /enfold deff +{ ==f { f fold } } /enfold deff [ 1 2 3 ] _ |add fold dump |