Arithmetic numbers: Difference between revisions
Content added Content deleted
VincentARM (talk | contribs) (add task to arm assembly raspberry pi) |
Not a robot (talk | contribs) (Add APL) |
||
Line 253: | Line 253: | ||
There are 88219 composite arithmetic numbers up to 125587 |
There are 88219 composite arithmetic numbers up to 125587 |
||
</pre> |
</pre> |
||
=={{header|APL}}== |
|||
{{works with|Dyalog APL}} |
|||
<syntaxhighlight lang="apl">task←{ |
|||
facs ← ⍸0=⍳|⊢ |
|||
aritm ← (0=≢|+/)∘facs |
|||
comp ← 2<(≢facs) |
|||
aritms ← ⍸aritm¨⍳15000 |
|||
⎕←'First 100 arithmetic numbers:' |
|||
⎕←10 10⍴aritms |
|||
{ |
|||
⎕←'' |
|||
⎕←'The ',(⍕⍵),'th arithmetic number: ',(⍕aritms[⍵]) |
|||
ncomps ← +/comp¨⍵↑aritms |
|||
⎕←'Of the first ',(⍕⍵),' arithmetic numbers, ',(⍕ncomps),' are composite.' |
|||
}¨10*3 4 |
|||
}</syntaxhighlight> |
|||
{{out}} |
|||
<pre>First 100 arithmetic numbers: |
|||
1 3 5 6 7 11 13 14 15 17 |
|||
19 20 21 22 23 27 29 30 31 33 |
|||
35 37 38 39 41 42 43 44 45 46 |
|||
47 49 51 53 54 55 56 57 59 60 |
|||
61 62 65 66 67 68 69 70 71 73 |
|||
77 78 79 83 85 86 87 89 91 92 |
|||
93 94 95 96 97 99 101 102 103 105 |
|||
107 109 110 111 113 114 115 116 118 119 |
|||
123 125 126 127 129 131 132 133 134 135 |
|||
137 138 139 140 141 142 143 145 147 149 |
|||
The 1000th arithmetic number: 1361 |
|||
Of the first 1000 arithmetic numbers, 782 are composite. |
|||
The 10000th arithmetic number: 12953 |
|||
Of the first 10000 arithmetic numbers, 8458 are composite.</pre> |
|||
=={{header|ARM Assembly}}== |
=={{header|ARM Assembly}}== |
||
{{works with|as|Raspberry Pi <br> or android 32 bits with application Termux}} |
{{works with|as|Raspberry Pi <br> or android 32 bits with application Termux}} |
||
Line 694: | Line 730: | ||
sys 0m0.000s |
sys 0m0.000s |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
=={{header|Arturo}}== |
||
<syntaxhighlight lang="arturo">arithmetic?: function [n][ |
<syntaxhighlight lang="arturo">arithmetic?: function [n][ |