Multiplicative order: Difference between revisions

Line 1,396:
 
def idivide($i; $j):
$i | idivide($j):;
# Emit [dividend, mod]
Line 1,472:
newT: 1 }
| until (.newR != 0.;
idivide(.r; $.newR) as $q
| .lastT = .t
| .lastR = .r
2,442

edits