Ormiston pairs: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(julia example) |
||
Line 893: | Line 893: | ||
3722 Ormiston pairs before 10000000 |
3722 Ormiston pairs before 10000000 |
||
</pre> |
</pre> |
||
=={{header|Julia}}== |
|||
{{trans|Python}} |
|||
<syntaxhighlight lang="Julia">using Primes |
|||
function testormistons(toshow = 30, lim = 1_000_000) |
|||
pri = primes(lim) |
|||
csort = [sort!(collect(string(i))) for i in pri] |
|||
ormistons = [(pri[i - 1], pri[i]) for i in 2:lastindex(pri) if csort[i - 1] == csort[i]] |
|||
println("First $toshow Ormiston pairs under $lim:") |
|||
for (i, o) in enumerate(ormistons) |
|||
i > toshow && break |
|||
print("(", lpad(first(o), 6), lpad(last(o), 6), " )", i % 5 == 0 ? "\n" : " ") |
|||
end |
|||
println("\n", length(ormistons), " is the count of Ormiston pairs up to one million.") |
|||
end |
|||
testormistons() |
|||
</syntaxhighlight>{{out}} Same as Python example. |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |