this repo has no description
1module Main where
2
3import Lib
4import Data.Numbers.Primes
5
6main :: IO ()
7main = do
8 inputStr <- readFile "input.txt"
9
10 -- Part1
11 -- let input = lines $ init inputStr
12 -- answer1 = howManyMuls input
13 -- in print answer1
14
15 -- Part 2, reverse engineered into JS in /millisecond23/part2.js, then optimized here
16 let b = 108400
17 in print $ length $ filter (not . isPrime) [b,b+17..b+17000]
18