From fa1b1202d3ed019620137d8c802232d957d7bee8 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 22 Dec 2017 19:02:44 +0100 Subject: added readme, removed puzzle1better --- Puzzle1Better.hs | 6 ------ 1 file changed, 6 deletions(-) delete mode 100644 Puzzle1Better.hs (limited to 'Puzzle1Better.hs') 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) -- cgit v1.2.3