Higher-order functions: Difference between revisions
→{{header|Quackery}}: simplified fold
(→{{header|Quackery}}: improved flattening a nest from O(n^2) to O(log n)) |
(→{{header|Quackery}}: simplified fold) |
||
Line 3,525:
First define the higher order functions <code>fold</code>, <code>map</code>, and <code>filter</code>.
<pre> [
dip
[ behead swap▼
' [ witheach ] ]▼
▲ behead swap
▲ witheach
▲ fold.act release ] is fold ( [ x --> x )
[ ' [ [ ] ] rot join swap
nested
' [ nested join ] join
fold ]
[ ' [ [ ] ] rot join swap
Line 3,544 ⟶ 3,540:
' [ iff [ nested join ]
else drop ] join
fold ]
</pre>
| |||