Coprimes: Difference between revisions
Add FOCAL
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 406:
{ 21 22 25 31 143 } Coprime
</pre>
=={{header|FOCAL}}==
<lang focal>01.10 S P(1)=21; S Q(1)=15
01.20 S P(2)=17; S Q(2)=23
01.30 S P(3)=36; S Q(3)=12
01.40 S P(4)=18; S Q(4)=29
01.50 S P(5)=60; S Q(5)=15
01.60 F N=1,5;D 3
01.70 Q
02.10 I (A-B)2.2,2.6,2.4
02.20 S B=B-A
02.30 G 2.1
02.40 S A=A-B
02.50 G 2.1
02.60 R
03.10 S A=P(N)
03.20 S B=Q(N)
03.30 D 2
03.40 I (A-1)3.6,3.5,3.6
03.50 T %4,P(N),Q(N),!
03.60 R</lang>
{{out}}
<pre>= 17= 23
= 18= 29</pre>
=={{header|Go}}==
| |||