Square form factorization: Difference between revisions

Bugfix for FreeBasic 64-bit
(Bugfix for FreeBasic 64-bit)
Line 367:
' ambiguous forms of discriminant 4N
' give factors of N.
'tested : FreeBasic 1.0708.1
 
 
Line 421:
swap a, c
'residue
q = culng(rN + b) \ a
t = b: b = q * a - b
'pseudo-square