Duffinian numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add APL) |
||
Line 120: | Line 120: | ||
</pre> |
</pre> |
||
=={{header|APL}}== |
|||
<syntaxhighlight lang="apl">duffinian_numbers←{ |
|||
sigma ← +/(⍸0=⍳|⊢) |
|||
duff ← sigma((1=∨)∧⊣>1+⊢)⊢ |
|||
⎕←'First 50 Duffinian numbers:' |
|||
⎕←5 10⍴(⊢(/⍨)duff¨)⍳220 |
|||
⎕←'First 15 Duffinian triplets:' |
|||
⎕←(0 1 2∘.+⍨⊢(/⍨)0 1 2(⊃∧.⌽)(⊂duff¨))⍳8500 |
|||
}</syntaxhighlight> |
|||
{{out}} |
|||
<pre>First 50 Duffinian numbers: |
|||
4 8 9 16 21 25 27 32 35 36 |
|||
39 49 50 55 57 63 64 65 75 77 |
|||
81 85 93 98 100 111 115 119 121 125 |
|||
128 129 133 143 144 155 161 169 171 175 |
|||
183 185 187 189 201 203 205 209 215 217 |
|||
First 15 Duffinian triplets: |
|||
63 64 65 |
|||
323 324 325 |
|||
511 512 513 |
|||
721 722 723 |
|||
899 900 901 |
|||
1443 1444 1445 |
|||
2303 2304 2305 |
|||
2449 2450 2451 |
|||
3599 3600 3601 |
|||
3871 3872 3873 |
|||
5183 5184 5185 |
|||
5617 5618 5619 |
|||
6049 6050 6051 |
|||
6399 6400 6401 |
|||
8449 8450 8451</pre> |
|||
=={{header|AppleScript}}== |
=={{header|AppleScript}}== |
||
As is often the case with these tasks, it takes as much code to format the output as it does to get the numbers. :) |
As is often the case with these tasks, it takes as much code to format the output as it does to get the numbers. :) |
||
Line 250: | Line 282: | ||
12481 12482 12483 |
12481 12482 12483 |
||
13447 13448 13449"</syntaxhighlight> |
13447 13448 13449"</syntaxhighlight> |
||
=={{header|Arturo}}== |
=={{header|Arturo}}== |
||