sln_2022_08

Copyright	(c) Eric Mertens 2022
License	ISC
Maintainer	emertens@gmail.com
Safe Haskell	None
Language	Haskell2010

Main

Description

https://adventofcode.com/2022/day/8

>>> :main + "30373\n25512\n65332\n33549\n35390\n"
21
8

Synopsis

main :: IO ()
outToEdge :: UArray Coord Char -> Coord -> (Coord -> Coord) -> [Char]
sightLines :: UArray Coord Char -> Coord -> [[Char]]
isEdgeVisible :: UArray Coord Char -> Coord -> Bool
clearView :: [Char] -> Bool
scenicScore :: UArray Coord Char -> Coord -> Int
treesSeen :: [Char] -> Int

Documentation

main :: IO () Source #

>>> :main
1690
535680

outToEdge Source #

Arguments

:: UArray Coord Char	array
-> Coord	starting coordinate
-> (Coord -> Coord)	coordinate step function
-> [Char]	list of elements out to the edge of the array

Return the list of elements in the array starting

sightLines Source #

Arguments

:: UArray Coord Char	array
-> Coord	starting coordinate
-> [[Char]]	list of trees viewed in each cardinal direction

isEdgeVisible :: UArray Coord Char -> Coord -> Bool Source #

clearView :: [Char] -> Bool Source #

scenicScore :: UArray Coord Char -> Coord -> Int Source #

treesSeen :: [Char] -> Int Source #