Sum multiples of 3 and 5: Difference between revisions
m
→{{header|Forth}}
(Added new FORTH version) |
|||
Line 416:
<lang forth>: third 2 pick ;
: >dtriangular ( n -- d )
dup 1+ m* d2/ ;
Line 428:
999 sumdiv_3,5 drop ;
: euler1tower ( -- )
1 \ power of 10
19 0 DO
|