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