Coprimes: Difference between revisions
Content added Content deleted
Line 14: | Line 14: | ||
see input + nl |
see input + nl |
||
see "Coprimes are:" + nl |
see "Coprimes are:" + nl |
||
see "p q" + nl |
|||
lncpr = len(Coprimes) |
lncpr = len(Coprimes) |
||
Line 44: | Line 43: | ||
input: [21,15],[17,23],[36,12],[18,29],[60,15] |
input: [21,15],[17,23],[36,12],[18,29],[60,15] |
||
Coprimes are: |
Coprimes are: |
||
p q |
|||
17 23 |
17 23 |
||
18 29 |
18 29 |
Revision as of 13:04, 20 April 2021
Coprimes is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.
- Task
p and q are coprimes if they have no common factors other than 1.
Let input: [21,15],[17,23],[36,12],[18,29],[60,15]
Ring
<lang ring> see "working..." + nl row = 0 Coprimes = [[21,15],[17,23],[36,12],[18,29],[60,15]] input = "input: [21,15],[17,23],[36,12],[18,29],[60,15]" see input + nl see "Coprimes are:" + nl
lncpr = len(Coprimes) for n = 1 to lncpr
flag = 1 if Coprimes[n][1] < Coprimes[n][2] test = Coprimes[n][1] else test = Coprimes[n][2] ok for m = 2 to test if Coprimes[n][1]%m = 0 and Coprimes[n][2]%m = 0 flag = 0 exit ok next if flag = 1 row = row + 1 see "" + Coprimes[n][1] + " " + Coprimes[n][2] + nl ok
next
see "Found " + row + " coprimes" + nl see "done..." + nl </lang>
- Output:
working... input: [21,15],[17,23],[36,12],[18,29],[60,15] Coprimes are: 17 23 18 29 Found 2 coprimes done...