forking from https://gitea.daggertrout.com/mcdoh/ExMineArchive

lib/cartographer.ex

@@ -0,0 +1,19 @@
+defmodule Cartographer do
+  alias Cartographer.Board
+
+  defdelegate new_board(height, width), to: Board
+
+  defdelegate height(board), to: Board
+
+  defdelegate width(board), to: Board
+
+  defdelegate get(board), to: Board
+
+  defdelegate get(board, x, y), to: Board
+
+  defdelegate get(board, x, y, range), to: Board
+
+  defdelegate set(board, x, y, data), to: Board
+
+  defdelegate neighbors(board, x, y), to: Board
+end

lib/cartographer/board.ex

@@ -0,0 +1,59 @@
+defmodule Cartographer.Board do
+  defstruct(
+    tiles: %{},
+    height: nil,
+    width: nil
+  )
+
+  def new_board(height, width) do
+    %__MODULE__{
+      height: height,
+      width: width,
+    }
+  end
+
+  def in_bounds(%__MODULE__{:height => height, :width => width}, x, y) do
+    x >= 0 and x < width and y >= 0 and y < height
+  end
+
+  def coordinate_range(center_x, center_y, range) do
+    for x <- (center_x - range)..(center_x + range), y <- (center_y - range)..(center_y + range), do: {x, y}
+  end
+
+  def height(board), do: board.height
+  def width(board), do: board.width
+
+  def get(board), do: board
+
+  def get(board, x, y) do
+    Map.get(board.tiles, {x, y})
+  end
+
+  def get(board, center_x, center_y, range) do
+    coordinate_range(center_x, center_y, range)
+    |> Enum.filter(fn({x, y}) -> in_bounds(board, x, y) end)
+    |> Enum.reduce(%{}, &(Map.put(&2, &1, Map.get(board.tiles, &1))))
+  end
+
+  def set(board, x, y, data) do
+    in_bounds(board, x, y)
+    |> _set(board, x, y, data)
+  end
+
+  defp _set(_in_bounds = true, board, x, y, data) do
+    tiles = board.tiles
+    |> Map.put({x, y}, data)
+
+    board
+    |> Map.put(:tiles, tiles)
+  end
+
+  defp _set(_not_in_bounds, board, _x, _y, _data), do: board
+
+  def neighbors(board, center_x, center_y) do
+    coordinate_range(center_x, center_y, 1)
+    |> List.delete({center_x, center_y})
+    |> Enum.filter(fn({x, y}) -> in_bounds(board, x, y) end)
+    |> Enum.reduce(%{}, &(Map.put(&2, &1, Map.get(board.tiles, &1))))
+  end
+end