Sum multiples of 3 and 5: Difference between revisions

m
more idiomatic point-free definition of triangular
m (more idiomatic point-free definition of triangular)
Line 1,732:
NB. inclusion/exclusion
 
triangular =: monad -:@: '(y*(y: + 1&*)) % 2'
sumdiv =: dyad : '(triangular <. x % y) * y'define
(triangular <. x % y) * y
)
 
echo 'For 10^20 - 1, the sum is ', ": +/ (". (20#'9'),'x') sumdiv 3 5 _15
exit ''
 
357

edits