From 56c25dfeafde1aeed8ddad43b6041b065a82bdda Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Sat, 2 Dec 2017 10:00:47 +0100
Subject: Start 2017!

---
 2017/2.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 2017/2.hs

(limited to '2017/2.hs')

diff --git a/2017/2.hs b/2017/2.hs
new file mode 100644
index 0000000..47ff161
--- /dev/null
+++ b/2017/2.hs
@@ -0,0 +1,13 @@
+import Control.Monad
+
+main :: IO ()
+main = do
+    input <- liftM (map (map read . words) . lines) (readFile "2.in") :: IO [[Int]]
+
+    print $ sum [maximum l - minimum l | l <- input]
+
+    let f = fst . head .
+                filter ((/=1) . fst) . filter ((==0) . snd) .
+                concat . concatMap (\(a,b) -> [map (a `divMod`) b, map (`divMod` a) b]) .
+                (\l -> zip l (repeat l))
+    print $ sum $ map f input
-- 
cgit v1.2.3-70-g09d2