Coprimes: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 9: | Line 9: | ||
<lang ring> |
<lang ring> |
||
see "working..." + nl |
see "working..." + nl |
||
⚫ | |||
⚫ | |||
row = 0 |
row = 0 |
||
Coprimes = [[21,15],[17,23],[36,12],[18,29],[60,15]] |
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 |
|||
⚫ | |||
⚫ | |||
lncpr = len(Coprimes) |
lncpr = len(Coprimes) |
||
Line 40: | Line 42: | ||
<pre> |
<pre> |
||
working... |
working... |
||
input: [21,15],[17,23],[36,12],[18,29],[60,15] |
|||
Coprimes are: |
Coprimes are: |
||
p q |
p q |
Revision as of 12:00, 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 see "p q" + 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: p q 17 23 18 29 Found 2 coprimes done...