DescendingPrimes: Difference between revisions
Content added Content deleted
m (since this was a duplicate page title, its page should be a redirect.) |
|||
(2 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
#REDIRECT [[Descending primes]] |
|||
=={{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 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:2 3 5 7 11 13 17 19 23 29 |
|||
31 37 41 43 47 53 59 61 67 71 |
|||
73 79 83 89 97 101 103 107 109 113 |
|||
127 131 137 139 149 151 157 163 167 173 |
|||
179 181 191 193 197 199 211 223 227 229 |
|||
233 239 241 251 257 263 269 271 277 281 |
|||
283 293 307 311 313 317 331 337 347 349 |
|||
353 359 367 373 379 383 389 397 401 409 |
|||
419 421 431 433 439 443 449 457 461 463 |
|||
467 479 487 491 499 503 509 521 523 541 |
|||
547 557 563 569 571 577 587 593 599 601 |
|||
607 613 617 619 631 641 643 647 653 659 |
|||
661 673 677 683 691 701 709 719 727 733 |
|||
739 743 751 757 761 769 773 787 797 809 |
|||
811 821 823 827 829 839 853 857 859 863 |
|||
877 881 883 887 907 911 919 929 937 941 |
|||
947 953 967 971 977 983 991 997 |
Latest revision as of 14:16, 29 March 2022
Redirect to: