Primes with digits in nondecreasing order: Difference between revisions
Primes with digits in nondecreasing order (view source)
Revision as of 13:43, 9 June 2021
, 2 years agoAdd APL
Not a robot (talk | contribs) (Add MAD) |
Not a robot (talk | contribs) (Add APL) |
||
Line 61:
Found 50 non-descending primes up to 1000
</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}}==
| |||