Ormiston pairs: Difference between revisions
Added Wren
Thundergnat (talk | contribs) m (→{{header|Raku}}: Add a label) |
(Added Wren) |
||
Line 52:
382 Ormiston pairs before one million
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>
| |||