sln_2023_10
Copyright(c) Eric Mertens 2023
LicenseISC
Maintaineremertens@gmail.com
Safe HaskellNone
LanguageHaskell2010

Main

Description

https://adventofcode.com/2023/day/10

This solution finds the contained area using https://en.wikipedia.org/wiki/Shoelace_formula.

>>> :{
:main +
".....
.S-7.
.|.|.
.L-J.
.....
"
:}
4
1
>>> :{
:main +
"-L|F7
7S-7|
L|7||
-L-J|
L|-JF
"
:}
4
1
>>> :{
:main +
"7-F7-
.FJ|7
SJLL7
|F--J
LJ.LJ
"
:}
8
1
>>> :{
:main +
"...........
.S-------7.
.|F-----7|.
.||.....||.
.||.....||.
.|L-7.F-J|.
.|..|.|..|.
.L--J.L--J.
...........
"
:}
23
4
>>> :{
:main +
".F----7F7F7F7F-7....
.|F--7||||||||FJ....
.||.FJ||||||||L7....
FJL7L7LJLJ||LJ.L-7..
L--J.L7...LJS7F-7L7.
....F-J..F7FJ|L7L7L7
....L7.F7||L7|.L7L7|
.....|FJLJ|FJ|F7|.LJ
....FJL-7.||.||||...
....L---J.LJ.LJLJ...
"
:}
70
8
>>> :{
:main +
"FF7FSF7F7F7F7F7F---7
L|LJ||||||||||||F--J
FL-7LJLJ||||||LJL-77
F--JF--7||LJLJ7F7FJ-
L---JF-JLJ.||-FJLJJ7
|F|F-JF---7F7-L7L|7|
|FFJF7L7F-JF7|JL---7
7-L-JL7||F7|L7F-7F7|
L.L7LFJ|||||FJL7||LJ
L7JLJL-JLJLJL--JLJ.L
"
:}
80
10
Synopsis

Documentation

main :: IO () Source #

Parse the input and print out answers to both parts.

>>> :main
6907
541