From edc5ae30c1bff5ada2c05ff5a5049938a8d6e8b9 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 1 Dec 2017 12:23:23 +0100 Subject: added source to Puzzle1Better --- Puzzle1Better.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Puzzle1Better.hs b/Puzzle1Better.hs index d8d0155..f33d11a 100644 --- a/Puzzle1Better.hs +++ b/Puzzle1Better.hs @@ -1,3 +1,4 @@ +-- 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) -- cgit v1.2.3