added author field

26 files changed, 27 insertions, 0 deletions

diff --git a/Puzzle1.hs b/Puzzle1.hs
index dc39b61..15b21bd 100644
--- a/Puzzle1.hs
+++ b/Puzzle1.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.Char (digitToInt)
 
 solve1 :: [Char] -> Int
diff --git a/Puzzle10.hs b/Puzzle10.hs
index 4af8105..f27d9df 100644
--- a/Puzzle10.hs
+++ b/Puzzle10.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 module Puzzle10 (knotHash) where 
 import Data.List.Split (splitOn)
 import Data.Bits (xor)
diff --git a/Puzzle11.hs b/Puzzle11.hs
index 2bd6257..bf141b3 100644
--- a/Puzzle11.hs
+++ b/Puzzle11.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOn)
 
 f :: [Char] -> (Int, Int)
diff --git a/Puzzle12.hs b/Puzzle12.hs
index a63d4a9..af208ad 100644
--- a/Puzzle12.hs
+++ b/Puzzle12.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.Set (Set)
 import qualified Data.Set as Set
 import Data.List.Split (splitOn, splitOneOf)
diff --git a/Puzzle13.hs b/Puzzle13.hs
index 7423298..b6a8788 100644
--- a/Puzzle13.hs
+++ b/Puzzle13.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOn)
 
 f :: (Int, Int) -> Int
diff --git a/Puzzle14.hs b/Puzzle14.hs
index c904d4a..d9ae234 100644
--- a/Puzzle14.hs
+++ b/Puzzle14.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Puzzle10 (knotHash)
 import qualified Data.Map as Map
 import Data.Map (Map)
diff --git a/Puzzle15.hs b/Puzzle15.hs
index 1a1d596..6045d23 100644
--- a/Puzzle15.hs
+++ b/Puzzle15.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 {-# LANGUAGE BangPatterns #-}
 
 import Data.Int
diff --git a/Puzzle16.hs b/Puzzle16.hs
index 57e0c8f..43f82c0 100644
--- a/Puzzle16.hs
+++ b/Puzzle16.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List (elemIndex)
 import Data.Maybe (fromJust)
 import Data.List.Split (splitOn)
diff --git a/Puzzle17.hs b/Puzzle17.hs
index cb704a1..277ad28 100644
--- a/Puzzle17.hs
+++ b/Puzzle17.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 -- Acknowledgement: Thanks to Bob Grudem for helping solve part 2 of the puzzle.
 
 {-# LANGUAGE BangPatterns #-}
diff --git a/Puzzle18.hs b/Puzzle18.hs
index c339005..2a1bfeb 100644
--- a/Puzzle18.hs
+++ b/Puzzle18.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOn)
 import Data.Map (Map)
 import qualified Data.Map as Map
diff --git a/Puzzle19.hs b/Puzzle19.hs
index 522e308..41dc646 100644
--- a/Puzzle19.hs
+++ b/Puzzle19.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.Map (Map)
 import qualified Data.Map as Map
 import Data.List.Split (splitOn)
diff --git a/Puzzle2.hs b/Puzzle2.hs
index 563e192..0a35d08 100644
--- a/Puzzle2.hs
+++ b/Puzzle2.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOn)
 import Data.List (sort)
 
diff --git a/Puzzle20.hs b/Puzzle20.hs
index 60cee36..d023185 100644
--- a/Puzzle20.hs
+++ b/Puzzle20.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOneOf)
 import Data.Ord (comparing)
 import Data.List (minimumBy, sort)
diff --git a/Puzzle21.hs b/Puzzle21.hs
index a900aa0..080e4e2 100644
--- a/Puzzle21.hs
+++ b/Puzzle21.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List (transpose)
 import Data.List.Split (splitOn)
 import Data.Map (Map)
diff --git a/Puzzle22.hs b/Puzzle22.hs
index 0b9df4d..3b0c3ab 100644
--- a/Puzzle22.hs
+++ b/Puzzle22.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 {-# LANGUAGE BangPatterns #-}
 
 import Data.Map (Map)
diff --git a/Puzzle23.hs b/Puzzle23.hs
index e00afb2..2a161e2 100644
--- a/Puzzle23.hs
+++ b/Puzzle23.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOn)
 import Data.Map (Map)
 import qualified Data.Map as Map
diff --git a/Puzzle23translation.md b/Puzzle23translation.md
index de2b060..01e6329 100644
--- a/Puzzle23translation.md
+++ b/Puzzle23translation.md
@@ -1,3 +1,5 @@
+Author: Yuchen Pei (me@ypei.me)
+
 Translation from the assembly code to pseudocode:
 
 ```
diff --git a/Puzzle24.hs b/Puzzle24.hs
index 639f4a3..d457833 100644
--- a/Puzzle24.hs
+++ b/Puzzle24.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 -- Acknowledgements:
 -- https://www.reddit.com/r/adventofcode/comments/7lte5z/2017_day_24_solutions/drs1eml/
 -- https://stackoverflow.com/a/4708372/4063224
diff --git a/Puzzle25.hs b/Puzzle25.hs
index 656e91d..65a001e 100644
--- a/Puzzle25.hs
+++ b/Puzzle25.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE FlexibleContexts #-}
 import Text.Parsec.Prim
diff --git a/Puzzle3.hs b/Puzzle3.hs
index 0f6c55e..2cc560b 100644
--- a/Puzzle3.hs
+++ b/Puzzle3.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.Maybe (fromJust)
 import Data.List (elemIndex)
 import Control.Monad (liftM2)
diff --git a/Puzzle4.hs b/Puzzle4.hs
index f874960..35ac206 100644
--- a/Puzzle4.hs
+++ b/Puzzle4.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOn)
 import Data.List (nub, sort)
 -- import Data.List.Unique (allUnique)
diff --git a/Puzzle5.hs b/Puzzle5.hs
index 252d305..1809e90 100644
--- a/Puzzle5.hs
+++ b/Puzzle5.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List.Split (splitOn)
 
 jump1 :: (Int, ([Int], Int)) -> (Int, ([Int], Int))
diff --git a/Puzzle6.hs b/Puzzle6.hs
index 721aa9b..dcad9ed 100644
--- a/Puzzle6.hs
+++ b/Puzzle6.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.List (elemIndex)
 import Data.List.Split (splitOn)
 import Data.Maybe (fromJust)
diff --git a/Puzzle7.hs b/Puzzle7.hs
index 4a1352b..8f90e88 100644
--- a/Puzzle7.hs
+++ b/Puzzle7.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 import Data.Set (toList, (\\), fromList)
 import Data.List.Split (splitOn, splitOneOf)
 import Data.Map (Map)
diff --git a/Puzzle8.hs b/Puzzle8.hs
index ffd4d7e..5c640f3 100644
--- a/Puzzle8.hs
+++ b/Puzzle8.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 -- adapted from https://github.com/ephemient/aoc2017/blob/master/src/Day8.hs
 
 import Data.Map (Map)
diff --git a/Puzzle9.hs b/Puzzle9.hs
index 7027619..c8080c8 100644
--- a/Puzzle9.hs
+++ b/Puzzle9.hs
@@ -1,3 +1,4 @@
+-- Author: Yuchen Pei (me@ypei.me)
 -- Part 1 is adapted from https://github.com/ephemient/aoc2017/blob/master/src/Day9.hs
 import Data.List (mapAccumL)