blob: fb32ef5c259d847bde852d9c1cb18226bf4dfdd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
|defv "==" deff
{ ==f ==a a len ==l
l {
0 a *
1 l range { a * f * } each
} { "fold on empty array" die }
? *
} /fold deff
{ ==f _ len ==l l dearray l 1 sub f rep } /foldshort deff
{ ==f { f fold } } /enfold deff
[ 1 2 3 ]
_ |add fold dump
_ |add foldshort dump
_ |add enfold * dump
--
|
