Primes whose first and last number is 3: Difference between revisions
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
m (added whitespace and the requirement of base ten numbers.) |
||
Line 1: | Line 1: | ||
{{Draft task}} |
{{Draft task}} |
||
;Task: |
|||
Find primes '''n''' (in base ten) whose first and last decimal digit is '''3''', and where '''n < 4,000'''. |
|||
Show all output here on this page. |
|||
<br><br> |
<br><br> |
||
Revision as of 12:08, 24 July 2021
- Task
Find primes n (in base ten) whose first and last decimal digit is 3, and where n < 4,000.
Show all output here on this page.
Go
<lang go>package main
import (
"fmt" "rcu"
)
func main() {
var primes []int candidates := []int{3, 33} for i := 303; i <= 393; i += 10 { candidates = append(candidates, i) } for i := 3003; i <= 3993; i += 10 { candidates = append(candidates, i) } for _, cand := range candidates { if rcu.IsPrime(cand) { primes = append(primes, cand) } } fmt.Println("Primes under 4,000 which begin and end in 3:") for i, p := range primes { fmt.Printf("%5s ", rcu.Commatize(p)) if (i+1)%11 == 0 { fmt.Println() } } fmt.Println("\nFound", len(primes), "Such primes.")
}</lang>
- Output:
Primes under 4,000 which begin and end in 3: 3 313 353 373 383 3,023 3,083 3,163 3,203 3,253 3,313 3,323 3,343 3,373 3,413 3,433 3,463 3,533 3,583 3,593 3,613 3,623 3,643 3,673 3,733 3,793 3,803 3,823 3,833 3,853 3,863 3,923 3,943 Found 33 Such primes.
Raku
<lang perl6>my $upto = 1e4;
for 1,3,5,7,9 -> $bracket {
print "\nPrimes up to $upto bracketed by $bracket - "; say display ^$upto .grep: { .starts-with($bracket) && .ends-with($bracket) && .is-prime }
}
sub display ($list, :$cols = 10, :$fmt = '%6d', :$title = "{+$list} matching:\n" ) {
cache $list; $title ~ $list.batch($cols)».fmt($fmt).join: "\n"
}</lang>
- Output:
Primes up to 10000 bracketed by 1 - 39 matching: 11 101 131 151 181 191 1021 1031 1051 1061 1091 1151 1171 1181 1201 1231 1291 1301 1321 1361 1381 1451 1471 1481 1511 1531 1571 1601 1621 1721 1741 1801 1811 1831 1861 1871 1901 1931 1951 Primes up to 10000 bracketed by 3 - 33 matching: 3 313 353 373 383 3023 3083 3163 3203 3253 3313 3323 3343 3373 3413 3433 3463 3533 3583 3593 3613 3623 3643 3673 3733 3793 3803 3823 3833 3853 3863 3923 3943 Primes up to 10000 bracketed by 5 - 1 matching: 5 Primes up to 10000 bracketed by 7 - 35 matching: 7 727 757 787 797 7027 7057 7127 7177 7187 7207 7237 7247 7297 7307 7417 7457 7477 7487 7507 7517 7537 7547 7577 7607 7687 7717 7727 7757 7817 7867 7877 7907 7927 7937 Primes up to 10000 bracketed by 9 - 29 matching: 919 929 9029 9049 9059 9109 9199 9209 9239 9319 9349 9419 9439 9479 9539 9619 9629 9649 9679 9689 9719 9739 9749 9769 9829 9839 9859 9929 9949
Ring
<lang ring> load "stdlib.ring" see "working..." + nl see "Primes whose first and last number is 3" + nl row = 0
for n = 1 to 4000
strn = string(n) if left(strn,1) = "3" and right(strn,1) = "3" and isprime(n) see "" + n + " " row++ if row%10 = 0 see nl ok ok
next
see nl + "Found " + row + " numbers" + nl see "done..." + nl </lang>
- Output:
working... Primes whose first and last number is 3 3 313 353 373 383 3023 3083 3163 3203 3253 3313 3323 3343 3373 3413 3433 3463 3533 3583 3593 3613 3623 3643 3673 3733 3793 3803 3823 3833 3853 3863 3923 3943 Found 33 numbers done...
Wren
<lang ecmascript>import "/math" for Int import "/trait" for Stepped import "/seq" for Lst import "/fmt" for Fmt
var primes = [] for (seq in [ 3..3, 33..33, Stepped.new(303..393, 10), Stepped.new(3003..3993, 10) ]) {
for (e in seq) if (Int.isPrime(e)) primes.add(e)
} System.print("Primes under 4,000 which begin and end in 3:") for (chunk in Lst.chunks(primes, 11)) Fmt.print("$,5d", chunk) System.print("\nFound %(primes.count) such primes.")</lang>
- Output:
Primes under 4,000 which begin and end in 3: 3 313 353 373 383 3,023 3,083 3,163 3,203 3,253 3,313 3,323 3,343 3,373 3,413 3,433 3,463 3,533 3,583 3,593 3,613 3,623 3,643 3,673 3,733 3,793 3,803 3,823 3,833 3,853 3,863 3,923 3,943 Found 33 such primes.
XPL0
<lang XPL0>func IsPrime(N); \Return 'true' if N is a prime number int N, I; [if N <= 1 then return false; for I:= 2 to sqrt(N) do
if rem(N/I) = 0 then return false;
return true; ];
func Has3s(N); \Return 'true' if first and last digits are 3 int N; [N:= N/10; if rem(0) # 3 then return false; while N do N:= N/10; return rem(0) = 3; ];
int Count, N; [Count:= 0; for N:= 0 to 4000-1 do
if Has3s(N) & IsPrime(N) then [IntOut(0, N); Count:= Count+1; if rem(Count/10) = 0 then CrLf(0) else ChOut(0, 9\tab\); ];
CrLf(0); IntOut(0, Count); Text(0, " such primes found below 4000. "); ]</lang>
- Output:
3 313 353 373 383 3023 3083 3163 3203 3253 3313 3323 3343 3373 3413 3433 3463 3533 3583 3593 3613 3623 3643 3673 3733 3793 3803 3823 3833 3853 3863 3923 3943 33 such primes found below 4000.