Tau function: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add Modula-2 |
Not a robot (talk | contribs) Add APL |
||
Line 132: | Line 132: | ||
5 4 2 12 4 4 4 8 2 12 4 6 4 4 4 12 2 6 6 9 |
5 4 2 12 4 4 4 8 2 12 4 6 4 4 4 12 2 6 6 9 |
||
</pre> |
</pre> |
||
=={{header|APL}}== |
|||
{{works with|Dyalog APL}} |
|||
<lang APL>tau ← 0+.=⍳|⊢ |
|||
tau¨ 5 20⍴⍳100</lang> |
|||
{{out}} |
|||
<pre>1 2 2 3 2 4 2 4 3 4 2 6 2 4 4 5 2 6 2 6 |
|||
4 4 2 8 3 4 4 6 2 8 2 6 4 4 4 9 2 4 4 8 |
|||
2 8 2 6 6 4 2 10 3 6 4 6 2 8 4 8 4 4 2 12 |
|||
2 4 6 7 4 8 2 6 4 8 2 12 2 4 6 6 4 8 2 10 |
|||
5 4 2 12 4 4 4 8 2 12 4 6 4 4 4 12 2 6 6 9</pre> |
|||
=={{header|AppleScript}}== |
=={{header|AppleScript}}== |