Product of min and max prime factors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add COBOL) |
Not a robot (talk | contribs) (Add VTL-2) |
||
Line 1,035: | Line 1,035: | ||
9 82 6889 14 85 86 87 22 7921 10 |
9 82 6889 14 85 86 87 22 7921 10 |
||
91 46 93 94 95 6 9409 14 33 10</pre> |
91 46 93 94 95 6 9409 14 33 10</pre> |
||
=={{header|VTL-2}}== |
|||
<syntaxhighlight lang="VTL-2">10 M=100 |
|||
20 :1)=0 |
|||
30 P=2 |
|||
40 :P)=1 |
|||
50 P=P+1 |
|||
60 #=M>P*40 |
|||
70 P=2 |
|||
80 C=P*P |
|||
90 #=M>C=0*150 |
|||
100 :C)=0 |
|||
110 C=C+P |
|||
120 #=M>C*100 |
|||
130 P=P+1 |
|||
140 #=80 |
|||
150 I=1 |
|||
160 L=1 |
|||
170 H=I |
|||
180 #=I=1*240 |
|||
190 L=L+1 |
|||
200 #=I/L*0+%=0*:L)=0*190 |
|||
210 H=H+1 |
|||
220 H=H-1 |
|||
230 #=I/H*0+%=0*:H)=0*220 |
|||
240 ?=L*H |
|||
250 #=I/10*0+%=0*280 |
|||
260 $=9 |
|||
270 #=290 |
|||
280 ?="" |
|||
290 I=I+1 |
|||
300 #=M>I*160</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|Wren}}== |
=={{header|Wren}}== |