Product of min and max prime factors: Difference between revisions
Product of min and max prime factors (view source)
Revision as of 10:13, 30 October 2022
, 1 year agoAdd FOCAL
Not a robot (talk | contribs) (Add VTL-2) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 591:
{{out}}
<pre>Same as ALGOL 68 entry.</pre>
=={{header|FOCAL}}==
<syntaxhighlight lang="focal">01.10 S M=100
01.20 D 2
01.30 T %6
01.40 F I=1,M;D 3
01.50 Q
02.10 S P(1)=0
02.20 F P=2,M;S P(P)=-1
02.30 F P=2,FSQT(M);F C=P*P,P,M;S P(C)=0
03.10 I (1-I)3.2;T I;R
03.20 S L=2;D 4
03.30 S H=I;D 5
03.40 T L*H
03.50 I (FITR(I/10)*10-I)3.7,3.6
03.60 T !
03.70 R
04.10 I (P(L))4.2,4.3
04.20 I (FITR(I/L)*L-I)4.3;R
04.30 S L=L+1
04.40 G 4.1
05.10 I (P(H))5.2,5.3
05.20 I (FITR(I/H)*H-I)5.3;R
05.30 S H=H-1
05.40 G 5.1</syntaxhighlight>
{{out}}
<pre>= 1= 4= 9= 4= 25= 6= 49= 4= 9= 10
= 121= 6= 169= 14= 15= 4= 289= 6= 361= 10
= 21= 22= 529= 6= 25= 26= 9= 14= 841= 10
= 961= 4= 33= 34= 35= 6= 1369= 38= 39= 10
= 1681= 14= 1849= 22= 15= 46= 2209= 6= 49= 10
= 51= 26= 2809= 6= 55= 14= 57= 58= 3481= 10
= 3721= 62= 21= 4= 65= 22= 4489= 34= 69= 14
= 5041= 6= 5329= 74= 15= 38= 77= 26= 6241= 10
= 9= 82= 6889= 14= 85= 86= 87= 22= 7921= 10
= 91= 46= 93= 94= 95= 6= 9409= 14= 33= 10</pre>
=={{header|Go}}==
| |||