From d4472c03425f30aaffb285a966d4ca86d2b69730 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 9 Jan 2018 12:26:03 +0100 Subject: added author field --- Puzzle1.hs | 1 + Puzzle10.hs | 1 + Puzzle11.hs | 1 + Puzzle12.hs | 1 + Puzzle13.hs | 1 + Puzzle14.hs | 1 + Puzzle15.hs | 1 + Puzzle16.hs | 1 + Puzzle17.hs | 1 + Puzzle18.hs | 1 + Puzzle19.hs | 1 + Puzzle2.hs | 1 + Puzzle20.hs | 1 + Puzzle21.hs | 1 + Puzzle22.hs | 1 + Puzzle23.hs | 1 + Puzzle23translation.md | 2 ++ Puzzle24.hs | 1 + Puzzle25.hs | 1 + Puzzle3.hs | 1 + Puzzle4.hs | 1 + Puzzle5.hs | 1 + Puzzle6.hs | 1 + Puzzle7.hs | 1 + Puzzle8.hs | 1 + Puzzle9.hs | 1 + 26 files changed, 27 insertions(+) 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) -- cgit v1.2.3