Successive prime differences: Difference between revisions
Content added Content deleted
| Line 599: | Line 599: | ||
Uses primes library: http://hackage.haskell.org/package/primes-0.2.1.0/docs/Data-Numbers-Primes.html |
Uses primes library: http://hackage.haskell.org/package/primes-0.2.1.0/docs/Data-Numbers-Primes.html |
||
===Fixed computed values=== |
===Fixed computed values=== |
||
<lang haskell> |
<lang haskell>{-# LANGUAGE NumericUnderscores #-} |
||
import Data.Numbers.Primes (primes) |
|||
type Result = [(String, [Int])] |
type Result = [(String, [Int])] |
||
oneMillionPrimes :: Integral p => [p] |
oneMillionPrimes :: Integral p => [p] |
||
oneMillionPrimes = takeWhile (< |
oneMillionPrimes = takeWhile (<1_000_000) primes |
||
getGroups :: [Int] -> Result |
getGroups :: [Int] -> Result |
||
| Line 630: | Line 631: | ||
main = showGroup "2" >> showGroup "1" >> showGroup "(2 2)" >> showGroup "(2 4)" >> showGroup "(4 2)" |
main = showGroup "2" >> showGroup "1" >> showGroup "(2 2)" >> showGroup "(2 4)" >> showGroup "(4 2)" |
||
>> showGroup "(6 4 2)"</lang> |
>> showGroup "(6 4 2)"</lang> |
||
===Dynamic computed input=== |
===Dynamic computed input=== |
||
<lang haskell>import Data.Numbers.Primes (primes) |
<lang haskell>import Data.Numbers.Primes (primes) |
||