RosettaCodeData/Task/Jensens-Device/Oforth/jensens-device.fth
2023-07-01 13:44:08 -04:00

1 line
67 B
Forth

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