Rosetta Code

Greatest common divisor: Difference between revisions

Page Discussion

Greatest common divisor (view source)

Revision as of 19:13, 17 May 2023

112 bytes removed ,  1 year ago
→‎{{header|ALGOL W}}: Simplify
Line 478:
a := abs( m );
b := abs( n );
ifwhile ab not = 0 thendo begin
newA := b;
endb := a rem b;
else begin a := newA;
while b not = 0 do beginend;
newA := b;a
b := a rem b;
a := newA;
end;
a
end
end gcd ;
 
write( gcd( -21, 35 ) );
end.
end.</syntaxhighlight>
 
=={{header|Alore}}==
Tigerofdarkness
3,026

edits

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