toPoints :: String -> [Point]
toPoints = map fst . filter (isAsteroid . snd) . inputWithCoordinates . lines

inputWithCoordinates :: [[a]] -> [(Point, a)]
inputWithCoordinates = map shiftTuple . concat . zipWith withElement [0..] . map (zip [0..])

withElement :: a -> [b] -> [(a, b)]
withElement elem = zip (repeat elem)

shiftTuple :: (a,(b,c)) -> ((a,b),c)
shiftTuple (x,(y,z)) = ((x,y),z)

isAsteroid :: Char -> Bool
isAsteroid '#' = True
isAsteroid _ = False

inputWithCoordinates = zip coordinates . concat
  with coordinates = [(x,y) | x <- [0..width], y <- [0..height]]

// TODO add JavaDoc comment

var playButton = $("#play-button");
playButton.click(() => tryCatch(run));
async function run() {
  await Excel.run(async (context) => {
    const sheet = context.workbook.worksheets.getItem("Game");
    sheet.load();
    await context.sync();
    var view = new WorksheetView(sheet);
    var adapter = new GridViewAdapter(view);
    var random = new StandardRandomizer();
    var factory = new PlayerFactory(random);
    var controller = new StandardGameController(adapter, random, factory);
    controller.newGame();

    class WorksheetView implements IGridViewCommands {
      private events: IGridViewEvents;
      private readonly sheet: Excel.Worksheet;
      private readonly gameGrid1: string = "$D$5:$M$14";
      private readonly gameGrid2: string = "$R$5:$AA$14";