diff options
author | Yuchen Pei <me@ypei.me> | 2017-12-22 19:02:44 +0100 |
---|---|---|
committer | Yuchen Pei <me@ypei.me> | 2017-12-22 19:02:44 +0100 |
commit | fa1b1202d3ed019620137d8c802232d957d7bee8 (patch) | |
tree | b83aa384287055f3f6f5b91f52d99aaba3a9c4b8 /Puzzle1Better.hs | |
parent | 73c99fa1890b2d522fda1da423cc9db42c3a399c (diff) |
added readme, removed puzzle1better
Diffstat (limited to 'Puzzle1Better.hs')
-rw-r--r-- | Puzzle1Better.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Puzzle1Better.hs b/Puzzle1Better.hs deleted file mode 100644 index f33d11a..0000000 --- a/Puzzle1Better.hs +++ /dev/null @@ -1,6 +0,0 @@ --- source: https://www.reddit.com/r/adventofcode/comments/7gsrc2/2017_day_1_solutions/dqlhkcj/ -import Data.Char (digitToInt) - -solve n xs = sum $ zipWith (\a b -> if a == b then a else 0) xs (drop n $ cycle xs) -solve1 xs = solve 1 (digitToInt <$> xs) -solve2 xs = solve ((length xs) `div` 2) (digitToInt <$> xs) |