day25

day25/LICENSE

@@ -0,0 +1,30 @@
+Copyright Ilya Bobyr (c) 2019
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Ilya Bobyr nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

day25/README.md

@@ -0,0 +1 @@
+# day25

day25/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

day25/day25.cabal

@@ -0,0 +1,24 @@
+name:                day25
+version:             0.1.0.0
+-- synopsis:
+-- description:
+homepage:            https://github.com/ilya-bobyr/advent-of-code-2018/day25#readme
+license:             BSD3
+license-file:        LICENSE
+author:              Ilya Bobyr
+maintainer:          [email protected]
+copyright:           (c) 2018 Ilya Bobyr
+category:            Web
+build-type:          Simple
+cabal-version:       >=1.10
+extra-source-files:  README.md
+
+executable day25
+  hs-source-dirs:      src
+  main-is:             Main.hs
+  default-language:    Haskell2010
+  ghc-options:         -O2 -fdiagnostics-color=always
+  build-depends:       base >= 4.7 && < 5
+                     , split
+                     , containers
+                     , vector

day25/src/Main.hs

@@ -0,0 +1,60 @@
+module Main where
+
+import Data.IntMap.Strict (IntMap)
+import qualified Data.IntMap.Strict as IntMap
+import Data.List (foldl', partition)
+import Data.List.Split (splitOn)
+import Data.Maybe (isJust)
+import Data.Vector (Vector)
+import qualified Data.Vector as V
+
+data Point = Point Int Int Int Int
+  deriving (Eq, Show)
+
+manhattanDistance :: Point -> Point -> Int
+manhattanDistance (Point w1 x1 y1 z1) (Point w2 x2 y2 z2) =
+  abs (w1 - w2) + abs (x1 - x2) + abs (y1 - y2) + abs (z1 - z2)
+
+data Constellation = Constellation (Vector Point)
+  deriving (Show, Eq)
+
+constellationPoints :: Constellation -> Vector Point
+constellationPoints (Constellation points) = points
+
+type SpaceTime = [Constellation]
+
+emptySpace :: SpaceTime
+emptySpace = []
+
+constellationCount :: SpaceTime -> Int
+constellationCount = length
+
+listToPoint :: [Int] -> Point
+listToPoint [w, x, y, z] = Point w x y z
+listToPoint _ = error "Invalid number of integers to form a point"
+
+sameConstellation :: Int -> Point -> Constellation -> Bool
+sameConstellation distance p (Constellation points) =
+  isJust $ V.find (\p2 -> manhattanDistance p p2 <= distance) points
+
+addPoint :: Int -> SpaceTime -> Point -> SpaceTime
+addPoint distance st p =
+  let (matching, separate) = partition (sameConstellation distance p) st
+      new = Constellation $ p `V.cons` V.concat (map constellationPoints matching)
+  in new : separate
+
+main :: IO ()
+main = do
+  input <- map (listToPoint . map read . splitOn ",") . lines <$> getContents
+  -- let point0 = head input
+  --     point1 = input !! 1
+
+  -- print $ manhattanDistance point0 point1
+  -- print $ manhattanDistance point1 point0
+
+  -- let spaceTime0 = addPoint 3 [] point0
+  --     spaceTime1 = addPoint 3 spaceTime0 point1
+  -- print spaceTime1
+
+  let spaceTime = foldl' (addPoint 3) [] input
+  print $ constellationCount spaceTime

day25/stack.yaml

@@ -0,0 +1,66 @@
+# This file was automatically generated by 'stack init'
+#
+# Some commonly used options have been documented as comments in this file.
+# For advanced use and comprehensive documentation of the format, please see:
+# https://docs.haskellstack.org/en/stable/yaml_configuration/
+
+# Resolver to choose a 'specific' stackage snapshot or a compiler version.
+# A snapshot resolver dictates the compiler version and the set of packages
+# to be used for project dependencies. For example:
+#
+# resolver: lts-3.5
+# resolver: nightly-2015-09-21
+# resolver: ghc-7.10.2
+#
+# The location of a snapshot can be provided as a file or url. Stack assumes
+# a snapshot provided as a file might change, whereas a url resource does not.
+#
+# resolver: ./custom-snapshot.yaml
+# resolver: https://example.com/snapshots/2018-01-01.yaml
+resolver: lts-14.17
+
+# User packages to be built.
+# Various formats can be used as shown in the example below.
+#
+# packages:
+# - some-directory
+# - https://example.com/foo/bar/baz-0.0.2.tar.gz
+#   subdirs:
+#   - auto-update
+#   - wai
+packages:
+- .
+# Dependency packages to be pulled from upstream that are not in the resolver.
+# These entries can reference officially published versions as well as
+# forks / in-progress versions pinned to a git hash. For example:
+#
+# extra-deps:
+# - acme-missiles-0.3
+# - git: https://github.com/commercialhaskell/stack.git
+#   commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
+#
+# extra-deps: []
+
+# Override default flag values for local packages and extra-deps
+# flags: {}
+
+# Extra package databases containing global packages
+# extra-package-dbs: []
+
+# Control whether we use the GHC we find on the path
+# system-ghc: true
+#
+# Require a specific version of stack, using version ranges
+# require-stack-version: -any # Default
+# require-stack-version: ">=2.1"
+#
+# Override the architecture used by stack, especially useful on Windows
+# arch: i386
+# arch: x86_64
+#
+# Extra directories used by stack for building
+# extra-include-dirs: [/path/to/dir]
+# extra-lib-dirs: [/path/to/dir]
+#
+# Allow a newer minor version of GHC than the snapshot specifies
+# compiler-check: newer-minor

day25/stack.yaml.lock

@@ -0,0 +1,12 @@
+# This file was autogenerated by Stack.
+# You should not edit this file by hand.
+# For more information, please see the documentation at:
+#   https://docs.haskellstack.org/en/stable/lock_files
+
+packages: []
+snapshots:
+- completed:
+    size: 524799
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/14/17.yaml
+    sha256: 1d72b33c0fc048e23f4f18fd76a6ad79dd1d8a3c054644098a71a09855e40c7c
+  original: lts-14.17