Copyright | (c) Eric Mertens 2023 |
---|---|
License | ISC |
Maintainer | emertens@gmail.com |
Safe Haskell | None |
Language | Haskell2010 |
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