Primes with digits in nondecreasing order: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add MAD) |
Not a robot (talk | contribs) (Add APL) |
||
Line 61: | Line 61: | ||
Found 50 non-descending primes up to 1000 |
Found 50 non-descending primes up to 1000 |
||
</pre> |
</pre> |
||
=={{header|APL}}== |
|||
{{works with|Dyalog APL}} |
|||
<lang APL>(⊢(/⍨)(∧/2≤/10(⊥⍣¯1)⊢)¨)∘(⊢(/⍨)(2=0+.=⍳|⊢)¨)⍳1000</lang> |
|||
{{out}} |
|||
<pre>2 3 5 7 11 13 17 19 23 29 37 47 59 67 79 89 113 127 137 139 149 157 167 |
|||
179 199 223 227 229 233 239 257 269 277 337 347 349 359 367 379 |
|||
389 449 457 467 479 499 557 569 577 599 677</pre> |
|||
=={{header|Arturo}}== |
=={{header|Arturo}}== |
||