Smarandache-Wellin primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Phix}}: Fix typos that were ultimately probably my fault) |
Thundergnat (talk | contribs) m (Sigh. fix the rest of my typos) |
||
Line 395: | Line 395: | ||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span> |
||
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span> |
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span> |
||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Smarandache- |
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Smarandache-Wellin primes:\n"</span><span style="color: #0000FF;">)</span> |
||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span> <span style="color: #008080;">in</span> <span style="color: #000000;">swp</span> <span style="color: #008080;">do</span> |
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span> <span style="color: #008080;">in</span> <span style="color: #000000;">swp</span> <span style="color: #008080;">do</span> |
||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %d%s:"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">ord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)})</span> |
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %d%s:"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">ord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)})</span> |
||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" Index: %4d, Last prime %5d, %s\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> |
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" Index: %4d, Last prime %5d, %s\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> |
||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span> |
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span> |
||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Smarandache- |
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Smarandache-Wellin derived primes:\n"</span><span style="color: #0000FF;">)</span> |
||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span> <span style="color: #008080;">in</span> <span style="color: #000000;">swdp</span> <span style="color: #008080;">do</span> |
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span> <span style="color: #008080;">in</span> <span style="color: #000000;">swdp</span> <span style="color: #008080;">do</span> |
||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %d%s:"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">ord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)})</span> |
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %d%s:"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">ord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)})</span> |
||
Line 409: | Line 409: | ||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Smarandache- |
Smarandache-Wellin primes: |
||
1st: Index: 1, Last prime 2, 2 |
1st: Index: 1, Last prime 2, 2 |
||
2nd: Index: 2, Last prime 3, 23 |
2nd: Index: 2, Last prime 3, 23 |
||
Line 418: | Line 418: | ||
7th: Index: 435, Last prime 3037, 23571113171923293137...30013011301930233037 (1,543 digits) |
7th: Index: 435, Last prime 3037, 23571113171923293137...30013011301930233037 (1,543 digits) |
||
8th: Index: 1429, Last prime 11927, 23571113171923293137...11903119091192311927 (5,719 digits) |
8th: Index: 1429, Last prime 11927, 23571113171923293137...11903119091192311927 (5,719 digits) |
||
Smarandache- |
Smarandache-Wellin derived primes: |
||
1st: Index: 32, 4194123321127 |
1st: Index: 32, 4194123321127 |
||
2nd: Index: 72, 547233879626521 |
2nd: Index: 72, 547233879626521 |
||
Line 448: | Line 448: | ||
my @primes = (^∞).grep: &is-prime; |
my @primes = (^∞).grep: &is-prime; |
||
my @Smarandache- |
my @Smarandache-Wellin = [\~] @primes; |
||
sink @Smarandache- |
sink @Smarandache-Wellin[1500]; # pre-reify for concurrency |
||
sub derived ($n) { my %digits = $n.comb.Bag; (0..9).map({ %digits{$_} // 0 }).join } |
sub derived ($n) { my %digits = $n.comb.Bag; (0..9).map({ %digits{$_} // 0 }).join } |
||
Line 456: | Line 456: | ||
sub abbr ($_) { .chars < 41 ?? $_ !! .substr(0,20) ~ '…' ~ .substr(*-20) ~ " ({.chars} digits)" } |
sub abbr ($_) { .chars < 41 ?? $_ !! .substr(0,20) ~ '…' ~ .substr(*-20) ~ " ({.chars} digits)" } |
||
say "Smarandache- |
say "Smarandache-Wellin primes:"; |
||
say ordinal-digit(++$,:u).fmt("%4s") ~ $_ for (^∞).hyper(:4batch).map({ |
say ordinal-digit(++$,:u).fmt("%4s") ~ $_ for (^∞).hyper(:4batch).map({ |
||
next unless (my $sw = @Smarandache- |
next unless (my $sw = @Smarandache-Wellin[$_]).is-prime; |
||
sprintf ": Index: %4d, Last prime: %5d, %s", $_, @primes[$_], $sw.&abbr |
sprintf ": Index: %4d, Last prime: %5d, %s", $_, @primes[$_], $sw.&abbr |
||
})[^8]; |
})[^8]; |
||
say "\nSmarandache- |
say "\nSmarandache-Wellin derived primes:"; |
||
say ordinal-digit(++$,:u).fmt("%4s") ~ $_ for (^∞).hyper(:8batch).map({ |
say ordinal-digit(++$,:u).fmt("%4s") ~ $_ for (^∞).hyper(:8batch).map({ |
||
next unless (my $sw = @Smarandache- |
next unless (my $sw = @Smarandache-Wellin[$_].&derived).is-prime; |
||
sprintf ": Index: %4d, %s", $_, $sw |
sprintf ": Index: %4d, %s", $_, $sw |
||
})[^20];</syntaxhighlight> |
})[^20];</syntaxhighlight> |
||
{{out}} |
{{out}} |
||
<pre>Smarandache- |
<pre>Smarandache-Wellin primes: |
||
1ˢᵗ: Index: 0, Last prime: 2, 2 |
1ˢᵗ: Index: 0, Last prime: 2, 2 |
||
2ⁿᵈ: Index: 1, Last prime: 3, 23 |
2ⁿᵈ: Index: 1, Last prime: 3, 23 |
||
Line 478: | Line 478: | ||
8ᵗʰ: Index: 1428, Last prime: 11927, 23571113171923293137…11903119091192311927 (5719 digits) |
8ᵗʰ: Index: 1428, Last prime: 11927, 23571113171923293137…11903119091192311927 (5719 digits) |
||
Smarandache- |
Smarandache-Wellin derived primes: |
||
1ˢᵗ: Index: 31, 4194123321127 |
1ˢᵗ: Index: 31, 4194123321127 |
||
2ⁿᵈ: Index: 71, 547233879626521 |
2ⁿᵈ: Index: 71, 547233879626521 |