Jump to content

Catamorphism: Difference between revisions

m
Line 375:
 
<lang rebol>; find the sum, with seed:0 (default)
print fold [1 2 3 4] => (+)add
 
; find the product, with seed:1
print fold [1 2 3 4] .seed:1 => (*)mul</lang>
 
{{out}}
Line 384:
<pre>10
24</pre>
 
 
=={{header|BASIC}}==
1,532

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.