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

5 lines
84 B
Text

integer s;
s = 0;
list(1, 2, 3, 4, 5, 6, 7, 8, 9).ucall(add_i, 1, s);
o_(s, "\n");