From d7c227e18790ec9b684f07dc5338c2000d2dc18d Mon Sep 17 00:00:00 2001
From: Yuchen Pei <me@ypei.me>
Date: Tue, 19 Dec 2017 20:35:15 +0100
Subject: minor edits

- added acknowledgement to day 17's solution
---
 Puzzle17.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Puzzle17.hs')

diff --git a/Puzzle17.hs b/Puzzle17.hs
index 0cdaf54..cb704a1 100644
--- a/Puzzle17.hs
+++ b/Puzzle17.hs
@@ -1,3 +1,5 @@
+-- Acknowledgement: Thanks to Bob Grudem for helping solve part 2 of the puzzle.
+
 {-# LANGUAGE BangPatterns #-}
 
 insert :: Int -> Int -> [Int] -> [Int]
@@ -15,7 +17,6 @@ f n m = foldl1 (.) (replicate m (step n)) ([0], 0, 1)
 
 f' :: Int -> Int -> (Int, Int, Int) -> (Int, Int, Int)
 f' n 0 acc = acc
---f' n m = step' n (f' n (m - 1))
 f' n m !acc = f' n (m - 1) (step' n acc)
 
 solve1 :: Int -> Int
-- 
cgit v1.2.3