DescendingPrimes: Difference between revisions
Content added Content deleted
(Created page with "=={{header|Ring}}== <lang ring> load "stdlibcore.ring" limit = 1000 row = 0 for n = 1 to limit flag = 0 strn = string(n) if isprime(n) = 1 for m = 1 to...") |
|||
| Line 12: | Line 12: | ||
if isprime(n) = 1 |
if isprime(n) = 1 |
||
for m = 1 to len(strn)-1 |
for m = 1 to len(strn)-1 |
||
if number(substr(strn,m)) |
if number(substr(strn,m)) < number(substr(strn,m+1)) |
||
flag = 1 |
flag = 1 |
||
ok |
ok |
||
Revision as of 10:12, 27 March 2022
Ring
<lang ring>
load "stdlibcore.ring"
limit = 1000 row = 0
for n = 1 to limit
flag = 0
strn = string(n)
if isprime(n) = 1
for m = 1 to len(strn)-1
if number(substr(strn,m)) < number(substr(strn,m+1))
flag = 1
ok
next
if flag = 1
row++
see "" + n + " "
ok
if row % 10 = 0
see nl
ok
ok
next </lang> Output: