Palindromic primes: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}: missing instruction) |
m (→{{header|Wren}}: Minor tidy) |
||
| Line 1,243: | Line 1,243: | ||
{{libheader|Wren-math}} |
{{libheader|Wren-math}} |
||
{{libheader|Wren-fmt}} |
{{libheader|Wren-fmt}} |
||
<syntaxhighlight lang="wren">import "./math" for Int |
|||
{{libheader|Wren-seq}} |
|||
import "./fmt" for Fmt |
|||
import "/fmt" for Fmt |
|||
import "/seq" for Lst |
|||
var reversed = Fn.new { |n| |
var reversed = Fn.new { |n| |
||
| Line 1,264: | Line 1,262: | ||
System.print("Palindromic primes under 1,000:") |
System.print("Palindromic primes under 1,000:") |
||
var smallPals = pals.where { |p| p < 1000 }.toList |
var smallPals = pals.where { |p| p < 1000 }.toList |
||
Fmt.tprint("$3d", smallPals, 10) |
|||
for (chunk in Lst.chunks(smallPals, 10)) Fmt.print("$3d", chunk) |
|||
System.print("\n%(smallPals.count) such primes found.") |
System.print("\n%(smallPals.count) such primes found.") |
||
System.print("\nAdditional palindromic primes under 100,000:") |
System.print("\nAdditional palindromic primes under 100,000:") |
||
var bigPals = pals.where { |p| p >= 1000 }.toList |
var bigPals = pals.where { |p| p >= 1000 }.toList |
||
Fmt.tprint("$,6d", bigPals, 10) |
|||
for (chunk in Lst.chunks(bigPals, 10)) Fmt.print("$,6d", chunk) |
|||
System.print("\n%(bigPals.count) such primes found, %(pals.count) in all.")</syntaxhighlight> |
System.print("\n%(bigPals.count) such primes found, %(pals.count) in all.")</syntaxhighlight> |
||