Inconsummate numbers in base 10: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
Not a robot (talk | contribs) (Add APL) |
||
Line 252: | Line 252: | ||
Inconsummate number 100000: 536081 |
Inconsummate number 100000: 536081 |
||
</pre> |
</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}}== |
=={{header|FreeBASIC}}== |