RosettaCodeData/Task/Variadic-function/Oforth/variadic-function.fth

2 lines
39 B
Forth

: sumNum(n) | i | 0 n loop: i [ + ] ;