Sum multiples of 3 and 5: Difference between revisions

Content added Content deleted

Inline

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