Coprimes: Difference between revisions

=={{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>