Product of min and max prime factors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add VTL-2) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 591: | Line 591: | ||
{{out}} |
{{out}} |
||
<pre>Same as ALGOL 68 entry.</pre> |
<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}}== |
=={{header|Go}}== |