Coprimes: Difference between revisions
Add BCPL
ReeceGoding (talk | contribs) (Added R. Very short.) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 385:
<pre> 17 23
18 29</pre>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let gcd(a,b) = b=0 -> a, gcd(b, a rem b)
let coprime(a,b) = gcd(a,b) = 1
let start() be
$( let ps = table 21, 17, 36, 18, 60
let qs = table 15, 23, 12, 29, 15
let n = 5
for i=0 to n-1
if coprime(ps!i, qs!i) do writef("%N %N*N", ps!i, qs!i)
$)</lang>
{{out}}
<pre>17 23
18 29</pre>
=={{header|C}}==
| |||