Ormiston pairs: Difference between revisions
Content added Content deleted
(added RPL) |
(→{{header| Haskell}}: Added a Haskell draft) |
||
Line 800: | Line 800: | ||
326,926 Ormiston pairs before 1,000,000,000 |
326,926 Ormiston pairs before 1,000,000,000 |
||
</pre> |
</pre> |
||
=={{header|Haskell}}== |
|||
<syntaxhighlight lang=haskell>import Data.List (sort) |
|||
import Data.Numbers.Primes (primes) |
|||
---------------------- ORMISTON PAIRS -------------------- |
|||
ormistonPairs :: [(Int, Int)] |
|||
ormistonPairs = filter sameDigits $ zip primes (tail primes) |
|||
sameDigits :: (Int, Int) -> Bool |
|||
sameDigits (a, b) = digits a == digits b |
|||
where |
|||
digits = sort . show |
|||
--------------------------- TEST ------------------------- |
|||
main :: IO () |
|||
main = |
|||
putStrLn "First 30 Ormiston pairs:" |
|||
>> mapM_ print (take 30 ormistonPairs) |
|||
>> putStrLn "\nCount of Ormistons up to 1,000,000:" |
|||
>> print (length (takeWhile ((<= 1000000) . snd) ormistonPairs))</syntaxhighlight> |
|||
{{Out}} |
|||
<pre>First 30 Ormiston pairs: |
|||
(1913,1931) |
|||
(18379,18397) |
|||
(19013,19031) |
|||
(25013,25031) |
|||
(34613,34631) |
|||
(35617,35671) |
|||
(35879,35897) |
|||
(36979,36997) |
|||
(37379,37397) |
|||
(37813,37831) |
|||
(40013,40031) |
|||
(40213,40231) |
|||
(40639,40693) |
|||
(45613,45631) |
|||
(48091,48109) |
|||
(49279,49297) |
|||
(51613,51631) |
|||
(55313,55331) |
|||
(56179,56197) |
|||
(56713,56731) |
|||
(58613,58631) |
|||
(63079,63097) |
|||
(63179,63197) |
|||
(64091,64109) |
|||
(65479,65497) |
|||
(66413,66431) |
|||
(74779,74797) |
|||
(75913,75931) |
|||
(76213,76231) |
|||
(76579,76597) |
|||
Count of Ormistons up to 1,000,000: |
|||
382</pre> |
|||
=={{header|J}}== |
=={{header|J}}== |
||
Line 824: | Line 887: | ||
+/isorm i.&.(p:inv) 1e7 NB. number of Ormiston pairs less than 1e7 |
+/isorm i.&.(p:inv) 1e7 NB. number of Ormiston pairs less than 1e7 |
||
3722</syntaxhighlight> |
3722</syntaxhighlight> |
||
=={{header|jq}}== |
=={{header|jq}}== |
||
{{works with|jq}} |
{{works with|jq}} |