solved day2

1 files changed, 15 insertions, 0 deletions

diff --git a/1/1.hs b/1/1.hs
new file mode 100644
index 0000000..b98791e
--- /dev/null
+++ b/1/1.hs
@@ -0,0 +1,15 @@
+module Main where
+
+import Prelude
+import Text.Read
+import Data.Maybe
+import Data.List
+import Debug.Trace
+import Data.Monoid
+
+f [] = (First Nothing, Last Nothing)
+f (x:xs) = ((,) . First <*> Last $ readMaybe [x]) <> f xs 
+
+g (First x, Last y) = (+) . (*10) <$> x <*> y
+--f = sum . take 1 . (zipWith ((+).(*10)) <*> reverse) . catMaybes . map (readMaybe.pure)
+main = readFile "input.txt" >>= print . sum . catMaybes . map (g . f) <$> lines