Arithmetic/Rational: Difference between revisions
Content added Content deleted
(→{{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: | Line 2,221: | ||
do j=2 to 2**19-1 by 2 /*ignore unity (can't be perfect)*/ |
do j=2 to 2**19-1 by 2 /*ignore unity (can't be perfect)*/ |
||
$=divisors(j); s=0; @= /*get divisors, zero sum, null @.*/ |
$=divisors(j); s=0; @= /*get divisors, zero sum, null @.*/ |
||
do k=2 to words($) |
do k=2 to words($) /*ignore unity.*/ |
||
r='1/'word($,k); @=@ r; s=fractFun(r,,s) |
r='1/'word($,k); @=@ r; s=fractFun(r,,s) |
||
end /*k*/ |
end /*k*/ |