Greatest common divisor: Difference between revisions
Content added Content deleted
(smalltalk code cleanup: the copy is not needed; Integers are immutable.) |
(indentation) |
||
Line 2,487: | Line 2,487: | ||
<lang smalltalk>|gcd_iter| |
<lang smalltalk>|gcd_iter| |
||
gcd_iter := [ :a :b | |
gcd_iter := [ :a :b | |
||
|u v| |
|||
u := a. v := b. |
|||
[ v > 0 ] |
[ v > 0 ] |
||
whileTrue: [ |t| |
whileTrue: [ |t| |
||
Line 2,494: | Line 2,496: | ||
v := t rem: v |
v := t rem: v |
||
]. |
]. |
||
u abs |
|||
]. |
]. |
||