Anonymous user
Greatest common divisor: Difference between revisions
→{{header|Seed7}}
Line 2,431:
<lang seed7>const func integer: gcd (in var integer: a, in var integer: b) is func
result
var integer:
local
var integer: help is 0;
Line 2,440:
a := help;
end while;
end func;</lang>
Original source: [http://seed7.sourceforge.net/algorith/math.htm#gcd]
| |||