diff options
Diffstat (limited to 'Puzzle1Better.hs')
-rw-r--r-- | Puzzle1Better.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Puzzle1Better.hs b/Puzzle1Better.hs new file mode 100644 index 0000000..d8d0155 --- /dev/null +++ b/Puzzle1Better.hs @@ -0,0 +1,5 @@ +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) |