Rosetta Code

Integer long division: Difference between revisions

Page Discussion

Integer long division (view source)

Revision as of 15:41, 15 September 2021

20 bytes added ,  2 years ago
m
→‎{{header|Common Lisp}}
Line 17:
; ($/ 1 17) => 588235294117647 ; 16
(assert (and (integerp a) (integerp b) (not (zerop b))))
(do* (c
(do* (c (i0 (1+ (max (factor-multiplicity b 2) (factor-multiplicity b 5)))) ; the position which marks the beginning of the period
(r a (* 10 r)) ; remainder
(ir 0a (1+* i10 r)) ; iterations counterremainder
(i 0 (1+ i)) ; iterations counter
(rem (if (= i i0) r -1) (if (= i i0) r rem)) ) ; the first remainder against which to check for repeating remainders
(rem (andif (= i i0) r rem-1) (notif (= i i0) r rem)) (-) i; i0))the first remainder against which to check for repeating remainders
((and (= r rem) (not (= i i0))) (- i i0))
(multiple-value-setq (c r) (floor r b))
(princ c) ))
Line 30 ⟶ 31:
; (factor-multiplicity 12 2) => 2
(do* ((i 0 (1+ i))
(n (/ n factor) (/ n factor)) )
((not (integerp n)) i)
() ))
 
</lang>
Proton
47

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/316150"