Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
(added Factor) |
m (→{{header|Factor}}: simplify code) |
||
Line 1,016: | Line 1,016: | ||
: {x+y-z} ( {x,y,z} -- x+y-z ) first3 [ + ] dip - ; |
: {x+y-z} ( {x,y,z} -- x+y-z ) first3 [ + ] dip - ; |
||
: range-length ( limit multiple -- len ) [ 1 - ] dip / |
: range-length ( limit multiple -- len ) [ 1 - ] dip /i ; |
||
: triangular ( limit multiple -- sum ) |
: triangular ( limit multiple -- sum ) |