RosettaCodeData/Task/Jensens-Device/Oforth/jensens-device.fth

2 lines
67 B
Forth

: mysum(lo, hi, term) | i | 0 lo hi for: i [ i term perform + ] ;