Tau number: Difference between revisions
Add PILOT
Not a robot (talk | contribs) (Add Modula-2) |
Not a robot (talk | contribs) (Add PILOT) |
||
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>
<!--</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}}==
| |||