heh
| -rw-r--r-- | solve.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/solve.hs b/solve.hs new file mode 100644 index 0000000..a1c3554 --- /dev/null +++ b/solve.hs @@ -0,0 +1,15 @@ +import Data.List (inits, subsequences) + +n = 25 + +main :: IO Int +main = do + contents :: String <- readFile "src/inp.txt" + let i = read <$> lines contents + let (y : _) = [last x | x <- i `windows` (n + 1), last x `notElem` [sum x | x <- subsequences (take n x), length x == 2]] + let (a : _) = [x | x <- concatMap inits [drop x i | x <- [0 ..]], sum x == y] + let y = minimum a + maximum a + print y + return y + +windows c n = (\x -> take n (drop x c)) <$> [n .. length c - n]
\ No newline at end of file |