Anonymous user
Successive prime differences: Difference between revisions
m
→Dynamic computed input
Line 640:
findPrimes :: [Int] -> [[Int]] -> Result
findPrimes [] _ = []
findPrimes primes diffs = loopDiffs diffs <> findPrimes (tail primes) diffs
where
| subs successive == d =
| otherwise
where
subs = map (uncurry (-)) . init . tail . (\xs -> zip (xs <> [0]) (0 : xs))▼
successive = take (length d + 1) primes
showGroup :: Result -> String -> IO ()
showGroup result diffs = do
putStrLn $ "Differences of " ++ diffs ++ ": " ++ show (length groups)
putStrLn
$ "First: "
where groups = foldr (\(a, b) c -> if a == diffs then b : c else c) [] result▼
++ "\nLast: "
++ "\n"
where
firstGroup = show . head
lastGroup = show . last
main :: IO ()
main = mapM_ (showGroup result . show) diffs
where
{{out}}
<pre>
|