diff --git a/src/3n+1/Main.hs b/src/3n+1/Main.hs index e69c59c..9fd053d 100644 --- a/src/3n+1/Main.hs +++ b/src/3n+1/Main.hs @@ -19,6 +19,29 @@ main = do print $ nubOrd results putStrLn "======================================" +{- + Idea for next steps + Don't compute numbers if even, we know they'll go to 1 + (https://smunix.github.io/dev.stephendiehl.com/hask/tutorial.pdf - Scientific numbers) + + Sample a few numbers at a given order of magnitude, then increase the exponent and sample more numbers + eg. [-10..n..+10], where n = 2^1_000, then n = 2^1_001, then n = 2^2_000, etc. +-} + +{- + Starting at 2^1_000, and computing 100 values. + - [1001,7249,7430] + + Starting at 2^10_000, and computing 100 values. + - [10001,72379] + + Starting at 2^100_000, and computing 100 values. + - [100001,717859] + + Starting at 2^1_000_000, and computing 100 values. + - [1000001,7212801] +-} + lst :: [Integer] lst = take 300 [2^100_000..]