From e1e59998c9b18ad262ddc3efbfa1c5bb972b86f1 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <me@ypei.me>
Date: Fri, 1 Dec 2017 12:05:49 +0100
Subject: first commit

---
 Puzzle1Better.hs | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 Puzzle1Better.hs

(limited to 'Puzzle1Better.hs')

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)
-- 
cgit v1.2.3