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

2 lines
66 B
Forth

[ 1, 2, 3, 4, 5 ] reduce(#max)
[ "abc", "def", "gfi" ] reduce(#+)