Product of divisors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BQN) |
ReeceGoding (talk | contribs) (Added R.) |
||
Line 1,178: | Line 1,178: | ||
1521 2560000 41 3111696 43 85184 91125 2116 47 254803968 343 125000</pre> |
1521 2560000 41 3111696 43 85184 91125 2116 47 254803968 343 125000</pre> |
||
=={{header|R}}== |
|||
This only takes one line. |
|||
<lang R>sapply(1:50, function(n) prod(c(Filter(function(x) n %% x == 0, seq_len(n %/% 2)), n)))</lang> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |