diff options
| author | Yuchen Pei <me@ypei.me> | 2017-12-01 12:23:23 +0100 |
|---|---|---|
| committer | Yuchen Pei <me@ypei.me> | 2017-12-01 12:23:23 +0100 |
| commit | edc5ae30c1bff5ada2c05ff5a5049938a8d6e8b9 (patch) | |
| tree | 24e93942c319fd2d3eb0db9e34312698fcfa2906 | |
| parent | e1e59998c9b18ad262ddc3efbfa1c5bb972b86f1 (diff) | |
added source to Puzzle1Better
| -rw-r--r-- | Puzzle1Better.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |