bill
/
universal-calculator
1
0
Fork 0
Code

Bigger numbers, try parallel computation

Bill Ewanick 2023-11-27 00:15:55 -05:00
parent 42afd893c9
commit e2a0841824
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/3n+1/Main.hs
View File

@ -3,11 +3,17 @@ The Simplest Math Problem No One Can Solve - Collatz Conjecture
https://youtu.be/094y1Z2wpJg https://youtu.be/094y1Z2wpJg
-} -}
import Control.Monad () import Control.Parallel.Strategies
import Debug.Trace (trace) import Data.Set (fromList)
import Debug.Trace (trace)
main :: IO () main :: IO ()
main = print $ take 100 $ map f [2^1000..] main = print $ fromList $ take 300 $ parMap rpar f [2^100_000..]
-- main = print $ fromList $ take 300 $ map f [2^100_000..]
-- fromList [100001,717859]
-- main = print $ fromList $ take 3 $ map f [2^310997..]
-- main = print $ f $ 2^310997 + 2
f :: Integer -> Integer f :: Integer -> Integer
f n = s 1 n f n = s 1 n