2 lines
96 B
Forth
2 lines
96 B
Forth
: sum 0 s>f 1+ swap ?do i over execute f+ loop drop ;
|
|
:noname s>f 1 s>f fswap f/ ; 1 100 sum f.
|