Greatest common divisor: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 365: | Line 365: | ||
gcd = gcd(a, b mod a) |
gcd = gcd(a, b mod a) |
||
end function</lang> |
end function</lang> |
||
==={{header|IS-BASIC}}=== |
|||
<lang IS-BASIC>100 DEF GCD(A,B) |
|||
110 DO WHILE B>0 |
|||
120 LET T=B |
|||
130 LET B=MOD(A,B) |
|||
140 LET A=T |
|||
150 LOOP |
|||
160 LET GCD=A |
|||
170 END DEF |
|||
180 PRINT GCD(12,16)</lang> |
|||
==={{header|Sinclair ZX81 BASIC}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |