Ormiston pairs: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: Add a label) |
(Added Wren) |
||
Line 52: | Line 52: | ||
382 Ormiston pairs before one million |
382 Ormiston pairs before one million |
||
3722 Ormiston pairs before ten million</pre> |
3722 Ormiston pairs before ten million</pre> |
||
=={{header|Wren}}== |
|||
{{libheader|Wren-math}} |
|||
{{libheader|Wren-seq}} |
|||
{{libheader|Wren-fmt}} |
|||
<syntaxhighlight lang="ecmascript">import "./math" for Int |
|||
import "./seq" for Lst |
|||
import "./fmt" for Fmt |
|||
var limit = 1e7 |
|||
var primes = Int.primeSieve(limit) |
|||
var orm30 = [] |
|||
var i = 0 |
|||
var j = 1e5 |
|||
var count = 0 |
|||
var counts = [] |
|||
while (i < primes.count-1) { |
|||
var p1 = primes[i] |
|||
var p2 = primes[i+1] |
|||
var d1 = Int.digits(p1) |
|||
var d2 = Int.digits(p2) |
|||
if (Lst.areEqual(d1.sort(), d2.sort())) { |
|||
if (count < 30) orm30.add([p1, p2]) |
|||
if (p1 >= j) { |
|||
counts.add(count) |
|||
j = j * 10 |
|||
} |
|||
count = count + 1 |
|||
i = i + 2 |
|||
} else { |
|||
i = i + 1 |
|||
} |
|||
} |
|||
counts.add(count) |
|||
System.print("First 30 Ormiston pairs:") |
|||
Fmt.tprint("[$,6d] ", orm30, 3) |
|||
Fmt.print("\n$,d Ormiston pairs before 100,000", counts[0]) |
|||
Fmt.print("$,d Ormiston pairs before 1,000,000", counts[1]) |
|||
Fmt.print("$,d Ormiston pairs before 10,000,000", counts[2])</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
First 30 Ormiston pairs: |
|||
[ 1,913 1,931] [18,379 18,397] [19,013 19,031] |
|||
[25,013 25,031] [34,613 34,631] [35,617 35,671] |
|||
[35,879 35,897] [36,979 36,997] [37,379 37,397] |
|||
[37,813 37,831] [40,013 40,031] [40,213 40,231] |
|||
[40,639 40,693] [45,613 45,631] [48,091 48,109] |
|||
[49,279 49,297] [51,613 51,631] [55,313 55,331] |
|||
[56,179 56,197] [56,713 56,731] [58,613 58,631] |
|||
[63,079 63,097] [63,179 63,197] [64,091 64,109] |
|||
[65,479 65,497] [66,413 66,431] [74,779 74,797] |
|||
[75,913 75,931] [76,213 76,231] [76,579 76,597] |
|||
40 Ormiston pairs before 100,000 |
|||
382 Ormiston pairs before 1,000,000 |
|||
3,722 Ormiston pairs before 10,000,000 |
|||
</pre> |