Coprimes: Difference between revisions
Content added Content deleted
ReeceGoding (talk | contribs) (Added R. Very short.) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 385: | Line 385: | ||
<pre> 17 23 |
<pre> 17 23 |
||
18 29</pre> |
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}}== |
=={{header|C}}== |