Proper divisors: Difference between revisions
m
→{{header|R}}: Syntax highlighting.
(Added Forth) |
ReeceGoding (talk | contribs) m (→{{header|R}}: Syntax highlighting.) |
||
Line 4,905:
===Package solution===
{{Works with|R|3.3.2 and above}}
<lang
require(numbers);
V <- sapply(1:20000, Sigma, k = 0, proper = TRUE); ind <- which(V==max(V));
Line 4,917:
===Filter solution===
<lang
#Has no input error checking.
properDivisors<-function(n)
|