Anonymous user
Arithmetic/Rational: Difference between revisions
m
→{{header|REXX}}: added comment about ignoring the first reciprocal (unity). -- ~~~~
(→{{header|REXX}}: added the list of fractions used to sum the reciprocals. -- ~~~~) |
m (→{{header|REXX}}: added comment about ignoring the first reciprocal (unity). -- ~~~~) |
||
Line 2,221:
do j=2 to 2**19-1 by 2 /*ignore unity (can't be perfect)*/
$=divisors(j); s=0; @= /*get divisors, zero sum, null @.*/
do k=2 to words($) /*ignore unity.*/
r='1/'word($,k); @=@ r; s=fractFun(r,,s)
end /*k*/
|