RosettaCodeData/Task/Catamorphism/Factor/catamorphism.factor

2 lines
32 B
Factor

{ 1 2 4 6 10 } 0 [ + ] reduce .