Greatest common divisor: Difference between revisions
Added ZX81 BASIC
(→{{header|Haskell}}: Updated implementation to current, and avoided single quote wiki formatting glitch) |
(Added ZX81 BASIC) |
||
Line 366:
gcd = gcd(a, b mod a)
end function</lang>
==={{header|Sinclair ZX81 BASIC}}===
<lang basic> 10 LET M=119
20 LET N=544
30 LET R=M-N*INT (M/N)
40 IF R=0 THEN GOTO 80
50 LET M=N
60 LET N=R
70 GOTO 30
80 PRINT N</lang>
{{out}}
<pre>17</pre>
=={{header|BBC BASIC}}==
| |||