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 | |u v| u := a. v := 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
u abs
].
].