RosettaCodeData/Task/Catamorphism/Min/catamorphism.min

3 lines
72 B
Plaintext

(1 2 3 4) 0 '+ reduce puts! ; sum
(1 2 3 4) 1 '* reduce puts! ; product