Tau number: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Modula-2) |
Not a robot (talk | contribs) (Add PILOT) |
||
Line 1,445: | Line 1,445: | ||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">join_by</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">,{{</span><span style="color: #008000;">"%,6d"</span><span style="color: #0000FF;">},</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">100</span><span style="color: #0000FF;">),</span><span style="color: #000000;">tau</span><span style="color: #0000FF;">)}),</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">))</span> |
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">join_by</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">,{{</span><span style="color: #008000;">"%,6d"</span><span style="color: #0000FF;">},</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">100</span><span style="color: #0000FF;">),</span><span style="color: #000000;">tau</span><span style="color: #0000FF;">)}),</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">))</span> |
||
<!--</lang>--> |
<!--</lang>--> |
||
=={{header|PILOT}}== |
|||
<lang pilot>T :1 |
|||
C :n=2 |
|||
C :seen=1 |
|||
C :max=100 |
|||
*number |
|||
C :c=1 |
|||
C :i=1 |
|||
*divisor |
|||
C (n=i*(n/i)):c=c+1 |
|||
C :i=i+1 |
|||
J (i<=n/2):*divisor |
|||
T (n=c*(n/c)):#n |
|||
C (n=c*(n/c)):seen=seen+1 |
|||
C :n=n+1 |
|||
J (seen<max):*number |
|||
E :</lang> |
|||
{{out}} |
|||
<pre style='height:50ex;'>1 |
|||
2 |
|||
8 |
|||
9 |
|||
12 |
|||
18 |
|||
24 |
|||
36 |
|||
40 |
|||
56 |
|||
60 |
|||
72 |
|||
80 |
|||
84 |
|||
88 |
|||
96 |
|||
104 |
|||
108 |
|||
128 |
|||
132 |
|||
136 |
|||
152 |
|||
156 |
|||
180 |
|||
184 |
|||
204 |
|||
225 |
|||
228 |
|||
232 |
|||
240 |
|||
248 |
|||
252 |
|||
276 |
|||
288 |
|||
296 |
|||
328 |
|||
344 |
|||
348 |
|||
360 |
|||
372 |
|||
376 |
|||
384 |
|||
396 |
|||
424 |
|||
441 |
|||
444 |
|||
448 |
|||
450 |
|||
468 |
|||
472 |
|||
480 |
|||
488 |
|||
492 |
|||
504 |
|||
516 |
|||
536 |
|||
560 |
|||
564 |
|||
568 |
|||
584 |
|||
600 |
|||
612 |
|||
625 |
|||
632 |
|||
636 |
|||
640 |
|||
664 |
|||
672 |
|||
684 |
|||
708 |
|||
712 |
|||
720 |
|||
732 |
|||
776 |
|||
792 |
|||
804 |
|||
808 |
|||
824 |
|||
828 |
|||
852 |
|||
856 |
|||
864 |
|||
872 |
|||
876 |
|||
880 |
|||
882 |
|||
896 |
|||
904 |
|||
936 |
|||
948 |
|||
972 |
|||
996 |
|||
1016 |
|||
1040 |
|||
1044 |
|||
1048 |
|||
1056 |
|||
1068 |
|||
1089 |
|||
1096</pre> |
|||
=={{header|PL/M}}== |
=={{header|PL/M}}== |