3 lines
70 B
Forth
3 lines
70 B
Forth
|
: sum ( x_1 ... x_n n -- sum ) 1 ?do + loop ;
|
||
|
|
4 3 2 1 4 sum . \ 10
|