Rosetta Code

Successive prime differences: Difference between revisions

Page Discussion

Successive prime differences (view source)

Revision as of 23:19, 10 April 2020

17 bytes removed ,  4 years ago
m
→‎Dynamic computed input
Line 633:
<lang haskell>import Data.Numbers.Primes (primes)
 
-- Type alias dictionary. Key is the difference group and value is a successive primesprime group.
type Result = [(String, [Int])]
 
Line 644:
| otherwise = loopDiffs ds
where successive = take (length d + 1) primes
subs [] = map (uncurry (-)) . init . tail . (\xs -> zip (xs <> [0]) (0 : xs))
subs p@(x:y:xs) = y - x : subs (tail p)
subs (x:xs) = subs xs
 
showGroup :: Result -> String -> IO ()
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/290192"