Inconsummate numbers in base 10: Difference between revisions
Add APL
Alextretyak (talk | contribs) (Added 11l) |
Not a robot (talk | contribs) (Add APL) |
||
Line 252:
Inconsummate number 100000: 536081
</pre>
=={{header|APL}}==
<syntaxhighlight lang="apl">task←{
gen ← ⍳~(⊢(/⍨)⌊=⊢)∘(⊢÷(+/⍎¨∘⍕)¨)∘⍳∘(⊢×9×≢∘⍕)
incons ← gen 9999
⎕←'The first 50 inconsummate numbers:'
⎕←5 10⍴50↑incons
⎕←'The 1000th inconsummate number:',incons[1000]
}</syntaxhighlight>
{{out}}
<pre>The first 50 inconsummate numbers:
62 63 65 75 84 95 161 173 195 216
261 266 272 276 326 371 372 377 381 383
386 387 395 411 416 422 426 431 432 438
441 443 461 466 471 476 482 483 486 488
491 492 493 494 497 498 516 521 522 527
The 1000th inconsummate number: 6996</pre>
=={{header|FreeBASIC}}==
| |||