Main

Description

Day 11 asks us to implement a hex grid coordinate system and compute distances on it.

  +  1,2 +
   \    /
0,2 +--+  2,1
   /    \
 -+  1,1 +-
   \    /
0,1 +--+  2,0
   /    \
  +  1,0 +

Synopsis

Documentation

Constructors

Instances details

Show D Source #
Instance details Defined in Main Methods showsPrec :: Int -> D -> ShowS # show :: D -> String # showList :: [D] -> ShowS #

Print the solutions to day 11. The input file can be overridden via the command-line.

>>> :main
761
1542

Compute minimum path distance from the origin on the hex grid.

>>> distance <$> [C (-1) 0,C (-1) 1,C 0 (-1),C 0 1,C 1 (-1),C 1 0]
[1,1,1,1,1,1]
>>> distance <$> [C (-1) (-1),C 1 1,C 2 (-1)]
[2,2,2]

Translate hex direction to grid projection.

>>> translate <$> [Dn,Ds,Dne,Dse,Dnw,Dsw]
[C (-1) 0,C 1 0,C (-1) 1,C 0 1,C 0 (-1),C 1 (-1)]