RosettaCodeData/Task/Catamorphism/Oforth/catamorphism.fth

3 lines
66 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
[ 1, 2, 3, 4, 5 ] reduce(#max)
[ "abc", "def", "gfi" ] reduce(#+)