RosettaCodeData/Task/Catamorphism/Arturo/catamorphism.arturo
2023-07-01 13:44:08 -04:00

5 lines
135 B
Text

; 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