Square form factorization: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: changed a comment. |
m →{{header|REXX}}: optimized a compound IF statement in the 1st nested DO loop. |
||
| Line 733: | Line 733: | ||
QQ= qprev + b * (pprev - p) |
QQ= qprev + b * (pprev - p) |
||
r= iSqrt(QQ) |
r= iSqrt(QQ) |
||
if i//2==0 |
if i//2==0 then if r*r==QQ then leave |
||
qprev= q; pprev= p |
qprev= q; pprev= p |
||
end /*i*/ |
end /*i*/ |
||