day10

7 files changed, 283 insertions, 0 deletions

diff --git a/data/10/example1.txt b/data/10/example1.txt
new file mode 100644
index 0000000..7650925
--- /dev/null
+++ b/data/10/example1.txt
@@ -0,0 +1,5 @@
+.....
+.S-7.
+.|.|.
+.L-J.
+.....
diff --git a/data/10/example2.txt b/data/10/example2.txt
new file mode 100644
index 0000000..682499d
--- /dev/null
+++ b/data/10/example2.txt
@@ -0,0 +1,5 @@
+..F7.
+.FJ|.
+SJ.L7
+|F--J
+LJ...
diff --git a/data/10/example3.txt b/data/10/example3.txt
new file mode 100644
index 0000000..bd9cdf5
--- /dev/null
+++ b/data/10/example3.txt
@@ -0,0 +1,9 @@
+...........
+.S-------7.
+.|F-----7|.
+.||.....||.
+.||.....||.
+.|L-7.F-J|.
+.|..|.|..|.
+.L--J.L--J.
+...........
diff --git a/data/10/example4.txt b/data/10/example4.txt
new file mode 100644
index 0000000..adaae96
--- /dev/null
+++ b/data/10/example4.txt
@@ -0,0 +1,10 @@
+.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...
diff --git a/data/10/example5.txt b/data/10/example5.txt
new file mode 100644
index 0000000..8f950ae
--- /dev/null
+++ b/data/10/example5.txt
@@ -0,0 +1,10 @@
+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
diff --git a/data/10/input.txt b/data/10/input.txt
new file mode 100644
index 0000000..607e074
--- /dev/null
+++ b/data/10/input.txt
@@ -0,0 +1,140 @@
+F-F7----F7-7-J--J--7FFL7F-7FFF77JFL|7|-L7--F77FF-FF7..-J7.F---FF7-|-JF7-J-F|-7FF|-FLL--7F-F--.--|77F|F---7-F--F7.L7F77|F----FF-F7FF.F-.L.L.J
+7-L--|J|||FL-7|-|F7-LJ|F|-F7FJ|7.F-|-L7L-7LJ.-F--F.L--J---7|J|.|.LL||-|.F-|JL.FL.LLLJ7F7JL7JJ7-FL7L-F7L|J|FLJ.|JF--JFJJL7L.|LJ-|7F|-JJ77..F|
+|L|.7JF|J---J|J.|F.|L7LFFFJLJFJF7F77.F7.L7L-7F|7FLFJ.|F7J|LL.--|JJ|FJF-7J7L7|F-L---7J.|.F-|-F-7.LL7.|JF--7-7L7|7||J-|JJJFF||..|L7L7FJL7777FJ
+J-FJJ-L|LF7|.|-F|J-|7J7LLL--7L-J||L7.FL|JFF-J-LL-JJ.F-L7F|-FF|||L7-LF7J|F|7|F7JFJ.L|J.L7JJF77-77-LL-JL|.J|LJJL7.F|..LJ.F--.LF-|.7F|FJ7|-F--J
+|FLJJ.L|F|LFF-.7J.FLJ-7.LFF7L7F-J|FJF--7|FJJF-7|-|L|-7F7-JF7F--7.--FF77-F.|FL|FJJ|7|-F7.LF-J-FJ|-.LL|.LF-7J|7LJF7L-L-F---|-F7F-|J7||.LF7LJJ.
+77|FF-FL-L-7J|L|-7-||FL7.F|L-J|F7|L7|F-J7.F-FFF7.77JFFJ||J||L-7|7LFFJL7F7.LJ.|7|.F-J7FL---|J-|JJJ7F|L7F|.|FFF7J--7J|.LJ|L|.FL-LLF-J|FLL--J.|
+|-F|J7L77-7J7|7L-|-J---JFFL7F-J|||FJ||F777JF.FJ|F7F-77-FF7||7J|L--7|F-J|L7|F7LJ-7J7.F7-7LLF-FJ-|JFJ|FL|J7L|JL|LL|JLJ7.FL-77LJ|L7.L|FLJL||-|J
+|LJJ|LJ--.L.LJ||LL|J|FLFF--JL7FJ|||-||||-|7JFL7||||FJF-7||||F7L7F7LJL7FL7|7|--|F--7FJLL|7FJF||L77JLFJLL7FF|.F7LL|-JJL7LJF.J7.77L-FL--7.L|7|J
+FF7L|JJF|7..JFLF-JFFJJ-LL---7|L7LJL-J||L-77FF7|||||L7|FJ|LJLJL7LJL-7FJF7||7||FFJJ-L7J7JJ|.FF-77LF..LF.LFF-JLL|-7L.F--J7FF7|LFJJ--JJ.F7-L77L-
+FJ|||--JLJ.FJF-JF-.F7L7.LF7FJL7|F----J|F-J--|LJLJLJFJ||FJF----JLF--JL7|LJL7-|7||.F|LF7-F777L7L77F-7.F7F77.FF|JL7JF-JFJ-FJJ.F.F7.F7|FJL|JL|||
+77J||.77.LLF.J7F|----7JLFJLJF7|||7F7F7||F7|.L-----7L7||L7L-7.FF7L---7LJF-7|||-77.F7.L|.FJLF7L7L-JFJFJLJ|-F-F-7F---7|77FL-J-77LF7|7|7..|.FFF-
+|J7|L7L|77.-7J7LJJ|7|LFJ|F7FJ|LJL7|||LJLJL7F-7F7F7L7LJ|FJF-JF7|L7LF7|F-J.LJF7|L|L7.-7FF7-FF77|F--J||F--J||-LJ|||JLLJJL|.LJ.J7FJ--7L-7-J7.LL|
+|FL7F|7|L77LJ7FJ7.LF||J.LJLJFJF-7|||L7F--7|L7||LJ|-L7FJL7|F-JLJFJ7|LJL-7F77|L7J|LLF-FF||-||L-JL7F--JL--7-|L|L|7|7.|7.FF7|||JF7.LJL7||FF-7.FJ
+.F7L7.--7|LF7F.||-7L-7JFJF--JFJF||||F|L-7LJFJ|L-7|F7|L7F|||F---JF7L-7F-J||FJFJ-F--J-LFJ|7FL--7FJL-7F---JF77|LF-7L7FLL7LJ-J|.L|F|.|LFL7JJL7||
+J|L.|F-JLL.LJ-|7|.L7|J7LFL--7|F-JLJ|FJF7L-7L7L--JLJLJFJFJLJ|F-7FJ|F7|L-7|||FJ7J.|7||||FJF7F--J|F7FJ|F-7JF-7FFJFJF7JLF7J|.|LJLF-J--.7LJ.F.|L7
+F||FLJ7|FL-JL.LF-F7F77JF---7LJL7F--JL7|L--JJL7F-----7|-L7F-J|FJL7LJ||F7||LJ|F7F7F7-F-J|7|||F-7|||L7LJFJFJFJFJFJ||||FFJ-J-L7|F|FJJ|F-7LJ--|.-
+FLF7.LL77F|.FL7L---|L77L--7|F7FJL--7FJL--7.F7LJF7F-7|L-7||F7||F7|F7LJ|LJ|F-J|||||L7|F7L7||LJFJ||L-JF-JFL7|.L7|F7|L7F-7-LF7F7FF|LFF7.FJLL-7.J
+F-F-7F||F||--.-7|JF|FJ7JF-JLJLJF7F-JL7F--JFJ|F-J|L7||F7||LJ|||||LJ|F7L--JL7||||||FJLJ|FJ|L7FJFJL7F-JF-7FJ|F7|||LJFJ|FJ.F-JLLLJ|FLLJ-|-LLLL7.
+F.|--7F7L|J7|FFF7L-|L7F7L7F----J||F7FJ|F-7|FJL-7|FJ|||LJL-7|||||F7LJL7F7F7L7|||||L-7FJL7L7|L7L--JL--JFJ|FJ|||LJF-JJ|L7FL-J|7|-LF.F|J..|FLL|7
+||J7.L7.7JF7-F7-|LLL7LJL7LJF7JF7|LJ|L7|L7LJL7.FJ|L7|||FF-7|LJLJLJ|F77||LJ|FJ|LJ||F-JL7FJFJL-JF--7F---JJ|L7||L7FJ.F7L7L7JFJFJLF7JFJLF.F777F|.
+FJ7-LF-7||F.FJL.LFL7L--7|JFJL-J||F-JFJL-JF--JFJFJFJLJL7L7||F-----J||FJL-7LJFL-7||L7|FJL7L7F--JF7|L7F7F7|FJ|L-JL--J|J|FJF77.|7FJ7JL-LL7J|L7|L
+|7|JL|JJ-|.7LJ7FF|FF---JL7L7F7FJ||F7L7F--JF7-L7L-JF-7FJFJLJ||F--7FJ|L7F-JF7FF-J|L7|FJF-JFJ|F--J||FJ||||||LL7F-----JFJL7||J..|||77F7LJ|-7FJJJ
+FF7-J|JJFJ.L|L|FFJFL7F--7L7LJ|L-J||L-JL--7|L7JL--7L7||LL--7L7|F-JL7|FJ|F-JL-JF-JFJ|L7L-7L-JL--7LJL-J||LJ|F-J||F7-F-JF-J||LFFLJ-77|LJFL7LF.|7
+|J|L7J|F7-|.F7|F-F-7LJF7L7|F7L--7|L--7F--J|FJF7F7L7|LJF---JFJ|L-7L|||FJL7F---JF7L7L7L-7L-7F7F7L-7F--JL7FJL-7|FJL-JF-J7FJL7F-77LLJ-L.77FJF7||
+L.|-F7-L|.LJ|7J-FL7|F-JL-JLJL7FFJL-7FJ|F-7|L7|LJ|J|L7LL---7L-JF7|FJ|||.FJL--7|||FJFJF7|F-J||||F7||F7LFJ|F7FJLJF---JF-7L-7|L7|7J||-L7LLL7|-||
+L|.FL--JJ7F-JL|LF-J|L-------7L7L-7FJL7LJFJ|FJL-7L7L7L7F-7|L-7FJLJL7|||FJF---JFJLJFJ7||||F7|||||||LJL7L7||||F--JF7F7|FJF7|L-JL7.L---77F7J|.JJ
+F77|7.|LFF|L|77.L-7|F7F7F--7|FJF-JL77|F-JFJ|F77L7L7|FJL7|F--J|F7F-J||||FJ.F7|L--7|7FJ||||||||||LJF--JFJ||||||F7|||LJ|FJLJF---J7LJ7L|7L|.LJ7.
+LJ-F7J|F-LJ-7|LF7FJ||||||F7LJ|7L-7FJFJ|F7L7|||F7L7LJL7FJ|L--7|||L7FJ|LJL--J|F--7||FJFJ||||||||L-7L7F7L7||||L7||||L-7LJF--J-F--77L||L|-J77||7
+L-JLJLFL|7F|FF-J|L7LJLJ|LJL-7|F7-||7L7|||FJLJ|||FL-7FJ|FJF7FJ|||FJ|FJF--7F-JL-7|||L7|FJLJLJ||L--JFJ||7|LJ||FJ|||L7FJF7L----JF7|77.7-LL|J.|.7
+-7-F|F77|JF7-L-7|FJF--7L7F--JLJL-JL7FJ||||F--J||F7FJL-JL7||L7LJLJFJL7L-7||F-7L|||L7|LJF----JL---7|FJL-JF-J|L7|||FJ|FJL-----7|LJJ-|L7||.F-JF7
+LLJ.|F77.F7JLF7||L-JF7|FJL--------7||FJ||||F7-|LJ|L---7FJ|L-JF7F-JF-JF-JLJL7|FJLJFJ|F-J-F7F7F---J|L---7L7||FJ||||.|L----7F7LJF7-J|7.|F77-J-|
+-.F-7-|J-FJ-FJLJL---JLJL----------JLJL-J||||L7|F-JF---JL7L7F7|LJF7L7FJF-7|FJ|L--7|FJL7F7|LJ|L--7FJ-F7FJFJFJL-JLJL-JF7F--J|L--J|JFJJ.L|L77|L7
+.LFJJ7L7FJLFJF--7F-7F7F----------7F7F7F-J|||FJ||F7L--7F-J7||LJF7|L7||FL7L7|FJF--J|L-7LJ||F-JF7L|L7FJ|L7L7L7F-----7FJ|L-7F|F---J-7-F7F---7.|J
+FL|--JLJ7-LL7|F-J|-LJLJF--------7LJLJ||F7|LJL7||||F7FJL7F-JL7FJ||FJ|L7.L7||L7L--7|F7|F-J|L7FJ|FJFJL7L7L7|FJL----7|L7L-7L7|L7F-77|.L-LJ.F-7J-
+|..7F|7F7.|FLJL-7|F----JF7F-7F-7L7FF7||||L-7FJ||||||L7FJL-7FJL7||||L7|F7|||FJF7|||||||F7|FJL7|L7|F7L7|||||F-----JL-JF7L-J|FJL7L--777|7FL|J..
+LF-|FJ|7|FFF----J||F7F-7|LJFJ|JL7L-J||||L7FJL7|LJ||L7|L-7FJL7FJ||L7FJ||||||L7||FJLJLJ||LJ|F-J|FJ||L7|L7|LJL7F7F7F7F7||F7FJL7J|F--J7F7.7-F7-J
+F|7L77LLF7|L-----JLJ|||LJF-JFJF7L--7LJ||7|||FJL-7|L7||F-JL-7|L7||JLJ-LJ|||L7||||F----J||FJL-7||FJL7||FJ|LF7LJLJ||LJLJLJLJF7L-J|7J-77JF-FJ.L|
+L-J7.|-J|||7F------7LJF--JF7L7|L-7LL-7|L7LJFJF7FJ|FJ||L-7F-J|FJ||F7|F7FJ||FJLJ||L-7F-7L7L7F7||||F7|LJ|FJFJL---7LJF7F7F---J|F-7L-7-L7|F--F-F7
+|||F7JJFJFJFL-7F--7L-7L---JL-JL-7L---J|FJF-JFJ||-||JLJ|FJL7FJL7LJ|L-JLJFJ|L--7||F-J||L7L7||LJ||LJ|L7|LJLL7F7F7L--JLJ|L---7LJ|L--J77LF--J...|
+F--7JF7LFLFJF||L7FJF7L---7F7F7F7L----7|L7L7FJ7|L7LJF---JF7|L7FJF7L--7F7L7|F7FJLJL-7L-7|FJ|L-7LJ7FJFJF77F7LJLJL-----7|F--7L--7-|FLFL|L7||J7|7
+F-LFFLJ.|J|J-FJFJ|FJ|F--7LJLJLJL7F---J|FJFJL-7L-JF7L---7|LJFJL-JL7F-J|L7|LJ|L7F---JF7|||7L-7|F--JFJJ|L7|L-7F7F7F---JLJF7L---JF-77|LJFJJ|F-||
+L|FLFJF|L-||LL7L7|L7LJF-JF---7F7|L---7|L7L-7FJF7FJL----JL77L7F---JL7FJFJL-7|FJL--7FJ|||L7F7||L7F7|F7L7|L-7LJLJ|L--7F7FJL---7LJF-L77.L.F77.F|
+L-JFL-7JF.J-7FJFJL-JF7L--JF--J||L----JL-J7FJL7|LJF7F--7F7L-7|L7F--7|L7L7F7||L--7FJ|L||L7LJ||L7||LJ||FJL--JF-7LL---J||L7F---J-LJFF|-F-J.L-F7J
+F|F--||-JJ7.FL-J|F7FJL--77L7F-JL----77F7F7L--JL7FJ||F-J||F7|L7LJF7|L7|FJ|||L7F7|L7L7LJFL7FJ|FJ||F-JLJF7F--JFJF7LF-7|L7|L----77FF7JFLJ7F|-FF7
+LF-J.F-7.L|7LJ7F-J|L-7F7|F7LJFF7F---JFJLJ|F---7LJ7||L-7|||LJFL7FJLJ7LJL7||L7||||J|FJ7F--JL7|L7LJL-7F7|||JF7L-JL7L7||FJ|F----JJ7F7|LJFF7L-7L7
+JJ|J.7L77-LF-|-L-7|F7LJ|||L---J|L----JF--JL7F-JF--J|F7|||L-7F7|L----7-FJ||FJ||||FJL-7L7F7FJL-JF---J|LJ||FJ|F-7FJFJLJL-JL-----77|L7L-FL|.|J||
+..FJLF.F7-FJFFJLL|LJL--JLJF---7L------JF7F-J|F7L--7LJ||||F7LJ||F---7|FJFJLJFJ||||F7FJFLJ|L---7L---7L7FJ|L7|L7|L-JF7F7F7F-----JFJFJLLJ.|7F.-J
+FF|7.JFJ|--F|J-J.L-7F-7F7FJJF7L----7F--J||F7LJL7F-JF-J|||||F7||L-7J||L7L7F7|FJLJ|||L-7F-JF---JJF--JFJL-JFJL-JL---JLJLJ|L7-F-7FJFJFF|J-|F-F77
+F77F.|-|77.LJJ||F|JLJ7LJLJF-JL----7LJF--J||L---J|F7|F-J|||LJ||L-7L7|L7|FJ|LJL--7||L7FJ|F7|F-7F7L---JF--7L-7F---------7L7L7L7||FJF77-.|L-.L7-
+LF7L-L7JF7.|---F7F77F--7F7L------7L--JJF7||F7F-7||||L7FJ|L-7LJF-JFJ|FJ||.L7F-7FJ||LLJFJ||||FJ||F-7F7L-7L7FJ|F--------J-L7L7|LJL-JL7J-J-L--J7
+L|.-J|.|||L..FFJLJL-JF7LJL-------JF7JF-JLJLJLJFJ||||FJ|FJF7L7LL7FJ|||.LJF7||-||7||F--JFJLJ||FJ|L7LJL-7|FJL-JL-7F----7F7FL-J|F7F---JJ.|JF7JFJ
+.77|.LL7-L7--FJF-----JL-7F-7F-----JL-JF-------JJLJ||L7||FJL7L-7|L7FJL7F-JLJL7|L7LJL--7|F--J|L7|FL---7|||-F7F--J|F---J||F-7L||LJF7F7-|7FLJFFJ
+FL7-777|7.F-7L-JF-------J|FJ|F--------JF----7F7F7FJ|FJ||L7FJF-J|FJ|F7||F-7F-J|FJF7F7FJ|L7F7L-JL-----JLJL-J|L---JL-7F-JLJFJFJL-7||||-|F7.FF-J
+J7L|L7-|J.LFFJ|-L---7F---JL-JL7F-7F----JF---J|LJ|L7|L7|L7|L7L-7LJFJ|||LJFJL7FJ|F|LJ|L-J7LJL7F7F7F-7F-7F7F7L-------J|F---JFJF--J|LJL--J|7LL|-
+|.FLJJFJJ|7FJ7LFF7F7LJF7-F7-F7||7LJF7F-7L--7FJF7L7|L7|||||||F7L77L7|LJF-JF7||FJFJF7L-7F7F7JLJLJLJ.||FJ|LJL---------JL---7|FJF7FJF7F7F7|LFFJ|
+LFFF|J..L|-7.FF-JLJL--JL-JL-J|LJF--JLJFJF-7LJFJ|FJ|FJ|L7LJFJ|L7L-7|L7FL-7|||LJFJFJL-7LJLJL---7F7F7LJ|FJF7F7F7F7F--------J||FJLJFJ||LJLJ.7JL7
+7|L-7.-7.L-|-FL-------------7L-7L--7F7L-JFL--JFLJ.LJFJFJF-JFJ-|F-J|FJ-|7LJ|L-7L-JFF7|F-7F7F-7LJLJL7JLJFJLJLJLJLJ7F-------JLJF-7L7LJJJ|J-F-|J
+FJ7LL-|JF-LJ.||F7FF7F7F7F--7L-7|F7|LJL--------7JF7F7L-J7L7FJ|FJL-7LJ..F-F-JF-JF---JLJ|-LJ||JL7F7F7L---JF--7F7F7|FJF7F-------JFJFJLLJ-L-JLJ|.
+|FJF|-|-|.LJ7JFJL-JLJLJLJF7L7FJLJL------------JFJLJL-7F7FJL-7|F-7|F7F-7L|F7L-7L7F7F-7|F--JL7|LJLJL-----JFFJ|LJL-JFJ|L-------7|FJ7L7|.|J.|-LF
+L|FJJL|.|J|.|JL---7F-----JL7LJF-7F------------7|F----J||L-7FJ|L7|LJLJFJFLJ|F-JFJ||||||L7F--JF7F7FF7F----7L-JF----JFJF--7F-7FJ||.|LL--J..L7FL
+JL-JF7LF7-FF--7JF7LJF-----7L-7L7LJF-----7F---7LJL---7FJL-7||FJFJL7F7FJJFLFJL7|L-JLJFJL7LJF7L|LJ|FJLJF7F7|F7FJLF--7L7L-7|L7LJ-LJF-7|7FF7F.7J7
+..|7|LF||FFJF7L-JL--JF--7FJF7L-JF7L-7F-7|L7F7L------J|F--J|||FJ7.LJ||J-|JL-7|7F7JF-JF-J7FJL7L-7LJF7FJ|||LJLJF-JF-JFL--JL-JF--7LFJF7LFJ-LLJL-
+FFLJ-JL-|L|FJL7F-----JF-JL-JL---JL--J|FJL7LJL---77F7.||F77LJ|L777.LLJL7.L|.LJFJ|FJF-JF--JF7L-7L--JLJFLJL-77FJF-JF--7F----7L7FJJF77L-7J7F|F.J
+||L|J7FLJLLJJ|LJF-----JF-------------JL7JL--7F-7L-JL-JLJL--7L-J-7JF|JFF|-7--|L7||FJF-JF7FJ|F7L7F7JF------JFJFJ7FJF-J|F---JFJL--JL7.FJ7-77|77
+L-JL||JJJ7L7-FF7L------JF-------------7L7F-7||FJF-7F-7F----JJ|J7|F7L7JL--|||F7||LJFL--J||FJ|L7LJL7L-------JFJF-JFJF7|L-7F-JF7F--7|F7LJ-JJ--7
+FJ.--|.|-L-L-FJL--------JF--7F7F7F---7L7LJFJLJL7L7|L7|L-----7J--7-JFJ|.J7-F-JLJL------7LJL7|7L7F7L7JF7LF7F-JLL-7|7|LJF7LJF7||L-7LJJ-7.F|J-J|
+.LLL7J.J7|F|.L---------7FJF7LJLJ||F--JFL-7L7F7FL-JL-JL------J7|F77.JFJFL7.L--7F7F----7L---J|F-J|L7|FJ|FJ|L--7|FJL-JF-JL7FJLJL--J|FL-F|J.|JLJ
+|-||F77|LLF---7-F7F-7F-J|FJL---7LJL-7F--7L7LJL------------7L|-JF.77.L-7-LF---J|||F-7FL----7||F7|FJ|L7||FJF-7L-JF--7L--7|L-7F--7J|-JFF7777F7J
+|--7JLLJ7LL--7L-J|L7|L--JL--7F7|-F--J|F-J7L-7F---7F-------JF7-FF-J|7JF7.|L---7|LJL7L-----7LJLJ||L7L-JLJL-JJL7F7L7LL---JL--J|F-JJ||FFFF-7--J.
+-7.|FF7-L.|F7L--7L-JL-7F7F-7LJ|L7L---JL----7|L--7|L----7F--7|.L|JF|J-L|7J-LFLLJF7JL--7F-7L-7F-J|LL7F7F-7F--7LJL7L-----7F7F7|L-7.|LF7FJFJ|.F7
+F|-|7LJ7.F-J|F7FJF7F-7|||L7L7FJFJF7F------7||F--J|F7F--J|F-J7-|L-7J7|LLF..LJJJFJL--7LLJ7L-7LJF7|F-J|||FLJF7L--7|F-7F--J|||||F-J.||||L7L77F7|
+7J||.FFJ-L-7LJLJFJLJL||||-L7|L7L7||L-----7LJLJF-7|||L7F-JL7...--7|7.--7L777L7FL7F-7L7F-7F7L--JLJL-7|LJF--JL--7||L7||F-7|||LJ|F7FF7|L-JFJJJ77
+J.L..--|F|FJF--7L7LF-J|||F7|||L7LJL-7F---JF7F7|FJLJL-J|F--J..7|.-F77LLLF.FJ.7-FLJJL7LJFJ||F7F--7F7LJ-FJF--7F7LJL-JLJ|FJ|LJF7LJL7||L7F-J7|L7-
+|-LFJ7|L-FL7L7FJFJFJF7LJLJ|||F7L7F-7|L----J||||L-7F-7FJL--77FLJ77.---JF-777F|7F----JF7L-JLJLJF7LJL7F7L-JF-J|L---7F-7||FJF7|L---J|L7|L--7J-LJ
+J7FJ|||--J7L-JL-JLL-JL---7|||||FLJ7||F7F--7LJLJF-JL7||F---J|L|LFJ7-|FL-7L7F|-FL-----JL7F7F-7FJL7F7LJ|.F7L-7|F7F-J|FJ|||FJLJJF-7JL7||F--J|.|F
+||L7-|L-7.F----7F7F------JLJLJL----J|||L-7L---7L---JLJL--7F77|J|FJ.F--L7-L-F7|JF------J|||FJL7FJ|L-7L-JL--J||||F7||FJLJL-7F7|FJF-J|||F7F7-7|
+L-JL-L-7|F|F--7|||L-------7F-7F-7F-7LJL--JF--7L7F--7F-7F7LJ|7|.|J...|L|J|LFJFLFJF-7F---JLJL7FJL7L-7L7F-----J|LJ|||||F---7LJ||L7L-7LJLJLJ|-|-
+||FL7JFJJ-LJF-JLJL-7F-----JL7|L7LJJL---7F-JF-J-|L-7||JLJL--JF-7J-|FJ|F7F|7|FJ7|FJFJ|F----7-|L7JL7FJFJ|F-----JJFJLJLJL--7L--J|FJF7|F--7F-J..|
+|FF||7|.LF--JF7F--7|L-7F7F7FJL-JJF-----JL7FJF-7|F-JLJF7F7F--JFJJ.J7LF|F7||LJ-FJL7L7||F--7L-JFJF7LJ-L-JL-------JF-7F-7F7L----JL7|LJL-7LJ7.7FJ
+F-LFJ-FL-L--7|||F-JL--J|||||F----JF--7F-7|L-JFJ|L----JLJLJF-7|JJ.||FF.L-L7|FFL--JL||||F-JF-7|FJL-7-F7F-7F----7FJ7|L7|||F7F-7F7LJF--7L--7F7-J
+L|L|L-J7.J.L||LJ|F-7F7FJ|||||F---7|F-J|FJ|F--J||F7F---7F--JJLJJ-|7|F7FJ7JLF7F-7F-7LJLJL--JL|||F-7|FJ|L7|L-7F7LJF-JFJ||||LJF|||F7L-7|F-7LJ|.|
+FL77.|F-F7--LJF7|L7||||FJ|||LJFF-J|L--JL7||F7F7LJ|L7F7|L7..||J-L|LFF-7.L7|||L7LJFJ-F77LF7F7LJLJFJLJFJFJL--J|L-7L-7L7LJ||7F7LJ|||F-J|L7L-7L77
+L|.|F-FFJJ7FF-JLJFJLJLJL7|||F--JF-JF-7F-J|LJLJL-7L7LJ|L7|J-F||7.7LFJFJ7FF7||FL-7|F7|L7FJLJL7F7FJF-7L-JF7F--JF7L-7|FJF7|L-JL-7LJ|L7-L-JFLL-J|
+--7|7|.J.J7F|F7F7|F7F--7LJLJL7F-JF-JJLJF7|F----7L7L--J7LJ-FLJ|F-JLL7|F7FJ|||F--JLJLJFJL---7LJLJFJ7L7F7|LJF--JL--JLJ-||L7F---JF-JFJF7JJLJJLJ7
+FLLJF|7F-.FFJ|||LJ||L-7L--7F7LJF-JF7F7FJLJL7FF7L-JF-------7J--FJ-FF||||L7|||L----7F-JF----JF--7L7F7LJLJF7L----7F7-F7|L7|L--7F|F7L-J|7F|.|7L7
+L7|F-J-LJ7LL-JLJF7||F-JF7FJ||F7L--JLJLJF7F7L-JL7F7|F------JJ-||7.J7||||FJ||L7F---JL-7L7F---JF7L-J||F---JL-7F-7LJL-JLJFJL--7L7LJL7F7L7F-77FF-
+.JJJ|7LJ7L||F77FJLJLJF7||L7|LJL--------JLJL7F-7LJLJL7|F7F7F77-F777FJ|||L7|L7|L--7F--JFLJF---J||F7||L-7F7F7LJFL--7F-7FJF--7L-JFF-J|L7LJFJF7JJ
+7.--FJJ77-FFJL-JF-7F-JLJL7|L-7F-------7F7F7LJJL7F--7L7|LJLJL7J|L7FJFJ||FJ|FJL7F-JL7F-7F7L---7|FJLJ|F7LJLJL----7-LJ7|L-JF7L7F-7L--JFJF7L-J|JL
+|-|F7J|F|FFJF---J|LJLF---JL--J|F------J|LJL---7|L-7|FJ|F---7L7L7|L7|FJ||FJ|F7|L7F-JL7LJ|LF--JLJF-7LJ||F7F--7F-JF--7|F7FJL-JL7L-7F7L-J|F7FJJ|
+|7J|L7||L-L-JF7F----7L-------7||F--7F7-|F---7FJL--JLJFJL7F7|FJ7|L7||L7|||FLJ||FJL-7FJF7L7L---7FJJL-7L-J|L-7LJF7|F-J||LJF--7FJF7LJL7|L||LJ7F7
+L7J|.7L|LF-F-J|L---7L7|F7F7F7LJLJF7LJL7|L7F7LJF7F7-F7L-7|||LJLFL7LJ|FJLJL-7FJ|L7F-JL-JL7|F-7||L77F7L--7L--JF7||||F7LJF7L7FJ|FJL---JF7||JL|||
+7F7J.|-J.77L-7|F7F7L7L-JLJLJL7F7-||F--JL7LJ|F7|LJL7||F-JLJL-7FF7|F-JL7F7F-JL7|FJL-7-F7F||L7L7L-JFJL7F7|F---J||LJLJL--JL7||FJL------J|LJJ-FJJ
+LJ|F-JLF-|LJ7|LJLJ|FL-------7|||FJLJ-F--JF7LJLJF--J|||F--7F-JFJ||L7F7LJ|L-7F||L-7FJFJL7||FL7L7F7|F7LJ|||F---J|F----7F-7LJLJF-7F---7FJJLF-J|L
+LL|JF|7FF7JF7|F--7L-7F7F----J|||L----JF7FJL----JF-7|LJL-7LJF7L7||FJ|L7FJF-JFJ|F7|L7L-7||L7FJFJ||LJL-7|LJL----JL7|F7LJFL--7FJ7|L--7LJL|F7|F|J
+F|L.FF--JL7||LJF7L-7|||L-7F-7LJL7F--7FJ|L---7F7J|FJL-7F-JF-J|FJ||L7L7|L7L-7L7|||L7|F7|LJFJL7L7|L-7-FJL--------7L-JL7LF--7||.FJF--JJF--LJ-|J.
+7JL--L---7||L7FJ|F-J|||F7LJFJF-7LJF7LJ-L-7F-J||FJ|F7FJL-7L-7||FJ|FJFJ|7|F-J.||||J||||L-7L7||FJ|F7|FJF7F------7|F7F7L-JF7||L7L7L--7.LLJL.L7.|
+||L||LF--J|L7|L7LJF7LJLJ|F7|FJJ|F7|L----7LJF7||L7||||F-7|F7||||FJL7L7|FJL7F-JLJL7|LJ|F7L7L7|L7||||L7|LJF-----JLJ|||F7FJLJL7L7L7F7|JL|..JJ|-L
+||-F-.L--7L-JL7L--JL-7F7LJLJ|F7LJLJF----JF7|||L7|LJ||L7|||LJLJ||F-JFJ|L7FJ|F7F--J|F-J|L-JFJ|FJ||LJ.LJF7|F7F7F7F7LJLJLJ.F-7|FJ7||LJ.F-F-J---|
+F|F|LFJJLL-7F7L------J||F7F-J||F---J.F7.FJLJ|L7||F-JL7|LJL7F--J|L-7L7|||L7LJ||F7FJL7LL--7L7|L7||F7F--J|LJLJLJLJL7F7F--7|FJLJF7LJ7|F-7L77-.FF
+-JLF-FJ|.F-J|L--7F-7F-JLJLJF7||L-----JL-JF--JFJ|||F7FJL7LFJL-7FJF-JFJL7L7L7FJLJ|L-7L7F7FJFJ|FJ|LJ|L--7L---------J|LJF7LJL---J||LLLJ|||L7|F-J
+|.|J-LFF7L-7|F--J|FJ|F-7JF-JLJL7F---7F--7L-7FJFJ|||||F-JFJF--JL7|F7L7FJF|FJL--7|F7|FJ||L7|FJL7|F-JF7FJF---------7|F-JL---7F7FJ7|F-J|L||.F7.-
+L-L7.-F||F7||L-7FJL-JL7L7L----7|L--7|L7FJF-JL7L7|||||L-7L7|F7F-J|||FJ|F-J|F7F7||||||FJL7|LJF-J|L7-||L-JF--7F7F-7LJ|F----7LJLJ7F7-LFJ7|F-LF|J
+|7||FJL|LJLJ|F-J|F---7|FJF7F--JL---J|FJL-JF7FJFJ|||||F-J.||||L-7||||FJ|F-J|||||||||||F-JL-7L-7L7L7||F7J|F7LJLJ|L-7LJF--7L7F7F7||J.-JL-J-.LL.
+LFJ7LFLL-7F7|L--JL7F7LJ|7||L7F7F---7LJF-7FJ|L7L7|LJ||L7F7|||L7FJ||LJ|FJ|F7|||LJ||||LJL7F7FJF-JFJFJ|||L7LJL-7F7F-7L7FJF7L-J|LJLJL77.F-L|LFFJ|
+LL7F-7|F7LJ||F--7LLJL-7L-JL-J|LJF7FJF7|FJ|FJ.|FJL7FJ|FJ|||||FJL7|L7FJL7||||||F-J||L-7FJ|||FJF7L7|F|||FJF7F7LJLJFJFJ|J||7F7L7F---JF7-J.|-|.F|
+F.FL7L7||F7LJL-7|F----JF7F-7FJF-JLJFJ||L7|L7FJ|F7||FJ|FJLJ||L7FJ|FJ|F7|||LJ||L7FJL7FJL7|LJL-J|FJL7|||L7|||L7F--JLL7L-JL-JL-JL----J|J.||.LF||
+.LJ|L7LJ|||F---J|L--7F7|LJFJL7L-7F7L7LJFJL7|L7LJ||LJFJ|-F-JL7LJFJ|FJ|||||FFJ|F||FFJL-7||F-7F-J|F-J|||FJ||L7|L--7F7|F7F------7F--7FJ-F|J7LLJF
+FF77LL-7LJ|L---7|F7FJ||L-7L7FJF7LJ|FJF-JF7||FJF-JL-7L7L7L-7FJF-JFJL7|LJ|L7L7|FJL7L7F-J|LJFJ|F7|L-7|LJL7|L-J|F--J||LJ|L-----7|L-7LJJ.7JF7-|FJ
+L7||-||L-7|F7F7|LJLJFJL7FJL||FJL--J||L-7|||||7|F7F7|FJFJF-JL7|F7L7F|L-7L7|JLJ|F7L7|L-7L7FJFJ|||F-JL--7|L7F-JL---J|F7L7F----JL--JLL--J.-7.|7J
+LLLJ7F---JLJLJLJF-7FJ.FLJFFJ|L-7F-7|F-7||LJ||FJ|||||L-J7L-7FJ||L7|FJF7L7|L7F-J||FJL7FJJ||FJFJ|||F-7F-J|FJL7F-7F-7LJL7LJF7F7F7F7.F|-|JFJJ.||7
+.F|FF|F7F7F7F7F7L7|L-7F--7L-JF-JL7LJL7LJL7FJ|L7||||L-77F7|||FJ|FJ||FJ|FJ|FJ|F7||L7FJ|F7LJL7L7LJLJFJL-7LJF-JL7|||L7F7L-7|||||||L7-7FJ|||F7-J-
+FFJFJLJLJ||LJ|||FJ|F7||F7L---JF7FJF--JF--JL7|FJ|||L-7L7|L7LJL7|L-J|L7LJ||L7|||||FJL7LJL--7|FJF---JF-7L-7L7F7||L-7|||F-J|LJLJLJFJF7JL77L||FFJ
+LF---JF--JL-7LJ|||||||||L7F--7||L7L--7L--7LLJ|FJ|L-7L7|L7L--7LJF--JFJF--JFJLJ|||L-7|F7F7FJLJ-L---7L7|F7|FJ|||L7FJ|||L--JF-7F-7L-J|J-JJ|LFJ7.
+LFJ|J-L-7F7FJ|FJL7||||||-LJF7|||FJF--JF7FJF--JL7|F7L7LJFJF-7L--JF-7|JL--7|F--J|L7FJLJ||||F7F7F---JFJLJ||L-J|L7|L7|||F-7FJLLJFJF7FJJJJ.7..|J7
+|LFJ777L||||F-JF7|LJ||LJF--JLJ||L7|S7FJ|L7|F7F7|LJL7L-7L7L7|F-7FJFJL-7F7||L--7|FJL-7LLJ|LJ|||L--7FJLF-JL-7FJFJ|FJLJ|L7|L7F-7L7|LJJ|J.F--FF-L
+L.JFL77LLJLJL--JLJF7LJF7L----7||FJLJ||FJFJLJ||LJF--JF7L7|FJ|L7||7L7F7||LJL--7LJL7F7L--7L7FJ|L---JL-7L----JL7L7|L-7FL7|L7LJFJF|L7J-|L--|.J|JJ
+LFJF.L7.LLJ|LF----J|F-J|F7F--J||L-7|||L7|F--J|F7|F7FJ|FJLJ7|FJ|L-7||LJL7F--7L-7FJ||F-7|FJ|FJF--7F-7L------7|FJ|F7L-7|L7L--JF7L-JJFL-L77FFJ7.
+7-.---JL-|7L.L----7|L-7LJLJF7FJ|F-JFJ|-LJ|F-7LJ|||||L||F---J|FJF7|||F--JL7||F-JL7|||FJ||FJ|FJF-JL7|F7F7F7FJ||FJ||F7|L-JF7F7||F77-L7FFL|-7.LF
+L7-|.FFJL-7.-F----JL7L|F--7|||FJL-7L7|F--J|FJF7||||L7||L-7F7||FJLJLJL-7F7L7|L-7-||||L7|||FJL7L7F7|LJ|||||L7LJ|FJ|||L---JLJLJLJL77L-LJLJL--7J
+L7.7FF|77-J--L-----7L-JL7FJ||||F7FJFJ|L--7|L7||||||FJ||F-J|||LJF---7F-J|L-JL-7L7LJ|L7|||||F7|FJ|LJF-J|||L7L-7|L7||L-7F-7F-7F7F7L7L|.LF7F|L|J
+F|.F-LJFJ7.L|F-----JF-7FJL7|LJ|||L7L7|F--J|L||||LJLJFJ||F7||L-7L--7|L-7|F---7L7L7FJFJLJ||||||L7L-7L-7||L7|F7|L7||L-7|L7|L7||LJL-J.|7.L-|JF||
+|J-|JL-L--JLFJF--7F7L7||JFJ|F-J|L-J|LJL7F7L7||LJF--7L-JLJ|||F-JLF-JL--JLJF7FJFL7|L7|F7FJ||||L7L7FJ7FJ|L7|||LJ-LJL7FJ|FJ|FJ|L--7J|7L--J--JLF7
+L7-F7|FJJ.|7L-JF-J||FJ|L7L7||F7L--77F7JLJL7||L--JF7|F7F7JLJLJF7|L---7F7F7|||JF7|L7|LJ||FJ|||FJJ|L-7L7L7|||L777.F-J|FJ|JLJFL7F-J7LFF|7|FJFJLJ
+LF-JFJ-7L---L7LL--J||FL7|7||||L7F7|FJL----J||F7F7||LJLJL--7F7||F----J|||||LJFJLJFJL--J||F|||L7FJF-J||FJ||L7L-7.|F7|L7L---7FJ|J-FJ||L|-JF---.
+L|-LLJJF7LFJ-|.LF--JL77LJFJ||L7LJLJ|F--7F-7|LJLJ||L7F-7F-7||LJLJF-7F7||||L-7L--7L----7|L7LJ|FJL7L7F-JL7LJFJF-JFJ||L7L7F7FJL-J7JL7||JLLLJ7-.J
+|.L7|LFL7.|.F--FJF7F7L--7|FJL7|7F--JL-7LJFJL77F7LJ7||FJL7||L--7FJFJ||||||F7L7F-JF7F--JL7|F7|L-7L7|L7F-JJ-L7L7FL-J|FJL||LJJ|L.-.LJ7|.F..||.FJ
+LJFLFJ.LJ-7F|.|L-J||L7F-JLJ-L||FJF7F7FJF-JF7L-JL-7FJ||F-JLJFF-JL7L-J||||||L7|L7FJ|L---7|LJ||F7|FJL7|L-7J|LL7L-7-L||J|LJLLF|JF|-|7|L.----|LJJ
+|F7.|.F||.-7|-F|LJLJFJ|JJJL||||L7|LJLJ7L-7||F7F7FJ|FJLJ.|7LFJF7FJF--J|||LJFJ|FJ|FJF-7FJL7FJLJLJL7FJ|F-JF7FFL7FJ-JLJ.J.J.FF7..L7L-JFL-J7|JJ.|
+|FF7L7|.77.-|7-|.FFLL-JJ--.F-LJ|LJF---7F7LJ||||LJLLJFJJF-J|L7|||7|F-7||L-7|FJL7||FJFJL7-|L7JF7F7||FJL--JL7-.LJJ.|.|F|7F7-F|-F7L-|7F7.LJ.|LJJ
+F-J-|7|||JJ-LJ.L-77J-|J7777LJJ.|FLL--7LJL--J|LJL|-|JJ7L|.LLL||||FJ|FJ||F7|||F-J||L7L7FJ7|FJF|LJLJ|L7F----J7F7J|-LJ.|..JJFF|F7JJ.|L7-|LLL77|.
+LL--LL|-|J.F|J..LJJJ7JL7||--|.7LJ--FFL7F---7L-77-FJ-LL7L--L7LJLJ|FJ|FJ||LJ||L-7|L7L7LJ-FJ|.FL7F-7L7|L--7JF-L7-7FF|.L7FJ7-LLFJL7777.FF-JL|--7
+LL||JFL-|7-77FL--F|.JFFLJJL-L-J-|7LFFFJ||F-JF7||7LJ|.LF7.|LJLJL|||FJ|FJL7LLJJ-||-L7|J.LL-J-F-JL7L-JL7F7L-7|FLJ|-|-J.|7JFF.|L7FLJ-JF|J|F7J.L.
+|.7--L|7JF-JLF7LFL..F7J|.|-L|-JFFJ-JJL7|FJF7||L-7JJL7L---7FJ7L-F||L-JL7FJJ.||.LJ-L|L77L|7|JL-7FJ7|L7LJL--J7-J-7-J7JF77FF7---J|J|7.-J|FLL7FLF
+F-|7F.F--JLF7L77L.---JJL-J7.L--LLJ7JFFJ||FJ|||F7|J7|JFL7JLJF7|LLLJL|F-J|LF-F7-L||||FJ-.LF|7JJLJJL7LLJFL|-|LJLFJLF--JJJFJ|JFF7J--|-J.LJ-|.7-F
+F.||-7L|..7F--JF|FL7|.7.FJ|FJ7LJ7LJ-|L-JLJ.LJLJLJ-7|JF-J-7|L-7.FLJJLL-7L7LFLL-J|L-LJLJ7FL|7.|LJJFJ.|FF7|.7JJ--7F||.L-7L-.-7JF---|JJ.LJL|-|.J
+|-L|FL-77-||JL77J|7|F.JJJF-.77|J|J|L-|L|JJ.|L|7.|L|7.F-|.LL.JLL7|JLF|J|FJ.|J-7L7|J.L7LL-.LL-L-L7-J-FFJFJL7|.F7LF--7LFL77..|.|J|.|||FLF-L7|J.
+J.L|-|F|LL||JL|J.LJ-L7.FJ-|7|L-.|F7..--F7-FL.LJ7L.J|F7FLFJ7..J.|7JL7||LJJ--F---L-F-J|.L||7|F--|F-L7|J.J7.|FJ7L7J.L|7J7.L.F|-L---7FF|7.|.||.-
+FJ7.L-|J7-LL7.7.F|7.L|7L-|FF|.JF-JL77.JLF--F-..7.-L7LJJ|J7F-J|FL-7-|L-JL|.LF.|-J7L---F.LF--J7J||F-L-77LJJL7--7-.7||J.F7J.-7LL-|.LFJ.L|-FJ-JJ
+LJ-LF-|L7-L|.FLFF-.|FLFJ.|-J|L.L|7..7F|FL7.L7FF7--F.LFFJ7F|J.L--LJ7F-J7.J7.JFLJ|F7.FL|-L|.LFJ.|F77L-7FLJFJ....L--7-7-F-F|LJL|.-F-JL7|LFJ|.|J
+J7LL.FJLJ--J-7-|--F-J-JJ-7.LLJF--7.----|L7-J|L|.L-7.--JL-F-F|J.L|-JJJ.-|LJ-LLJ-JJLJ7----|-LL--F7L--.J-J-LJ-LJ.-JF.L|.LJLF7J.|7.JJ7JJL-|-F-LJ
diff --git a/day10.lisp b/day10.lisp
new file mode 100644
index 0000000..cd0402f
--- /dev/null
+++ b/day10.lisp
@@ -0,0 +1,104 @@
+(defstruct grid data dim0 dim1)
+(defstruct point i j)
+(defstruct pdir point dir)
+
+(defun parse-grid (filespec)
+  (with-open-file (stream filespec)
+    (let ((lines (loop for line = (read-line stream nil)
+                       while line
+                       collect line)))
+      (make-grid :data (apply #'concatenate 'string lines)
+                 :dim0 (length lines)
+                 :dim1 (length (first lines))))))
+
+(defun grid-character (grid i j)
+  (aref (grid-data grid) (+ (* i (grid-dim1 grid)) j)))
+
+(defun grid-character-update (grid i j item)
+  (setf (aref (grid-data grid) (+ (* i (grid-dim1 grid)) j)) item))
+
+(defun grid-point (grid item)
+  (let ((pos (position item (grid-data grid))))
+    (when pos
+      (multiple-value-bind (i j) (truncate pos (grid-dim1 grid))
+        (make-point :i i :j j)))))
+
+(defun point-in-grid (point grid)
+  (and (and (>= (point-i point) 0) (< (point-i point) (grid-dim0 grid)))
+       (and (>= (point-j point) 0) (< (point-j point) (grid-dim1 grid)))))
+
+(defun next-pdir (grid pdir)
+  (let* ((i   (point-i (pdir-point pdir)))
+         (j   (point-j (pdir-point pdir)))
+         (dir (pdir-dir pdir))
+         (next-point (cond ((= dir 0) (make-point :i (1- i) :j j))   ; up
+                           ((= dir 1) (make-point :i i :j (1+ j)))   ; right
+                           ((= dir 2) (make-point :i (1+ i) :j j))   ; down
+                           ((= dir 3) (make-point :i i :j (1- j))))) ; left
+         (i (point-i next-point))
+         (j (point-j next-point)))
+    (when (point-in-grid next-point grid)
+      (let* ((next-char (grid-character grid i j))
+             (next-dir (cond ((equal next-char #\S) dir)
+                             ((= dir 0) (cond ((equal next-char #\7) 3)
+                                              ((equal next-char #\F) 1)
+                                              ((equal next-char #\|) dir)))
+                             ((= dir 1) (cond ((equal next-char #\7) 2)
+                                              ((equal next-char #\J) 0)
+                                              ((equal next-char #\-) dir)))
+                             ((= dir 2) (cond ((equal next-char #\L) 1)
+                                              ((equal next-char #\J) 3)
+                                              ((equal next-char #\|) dir)))
+                             ((= dir 3) (cond ((equal next-char #\L) 0)
+                                              ((equal next-char #\F) 2)
+                                              ((equal next-char #\-) dir))))))
+        (when next-dir
+          (make-pdir :point next-point :dir next-dir))))))
+
+(defun grid-loop (grid start pdir &optional (count 0) visited)
+  (if (and (equalp start (pdir-point pdir)) (/= count 0))
+      visited
+      (let* ((visited (cons pdir visited))
+             (pdir (next-pdir grid pdir)))
+        (when pdir
+          ;; Updating the grid for a quick visited check
+          (let* ((i (point-i (pdir-point pdir)))
+                 (j (point-j (pdir-point pdir)))
+                 (c (grid-character grid i j)))
+            (unless (equal c #\S)
+              (grid-character-update grid i j #\.)))
+          (grid-loop grid start pdir (1+ count) visited)))))
+
+(defun solve1 (filespec)
+  (let* ((grid (parse-grid filespec))
+         (start (grid-point grid #\S))
+         (positions (or (grid-loop grid start (make-pdir :point start :dir 0))
+                        (grid-loop grid start (make-pdir :point start :dir 1))
+                        (grid-loop grid start (make-pdir :point start :dir 2))
+                        (grid-loop grid start (make-pdir :point start :dir 3)))))
+    (ash (length positions) -1)))
+
+(defun solve2 (filespec)
+  (let* ((grid (parse-grid filespec))
+         (start (grid-point grid #\S))
+         (positions (or (grid-loop grid start (make-pdir :point start :dir 0))
+                        (grid-loop grid start (make-pdir :point start :dir 1))
+                        (grid-loop grid start (make-pdir :point start :dir 2))
+                        (grid-loop grid start (make-pdir :point start :dir 3)))))
+    (let* ((area (loop for cur in (append (cdr positions) (list (car positions)))
+                       for prv in positions
+                       as curi = (point-i (pdir-point cur))
+                       as curj = (point-j (pdir-point cur))
+                       as prvi = (point-i (pdir-point prv))
+                       as prvj = (point-j (pdir-point prv))
+                       sum (- (* prvi curj) (* prvj curi))))
+           (iarea (- (abs area) (length positions))))
+      (1+ (ash iarea -1)))))
+
+(print (solve1 "data/10/example1.txt"))  ;; 4
+(print (solve1 "data/10/example2.txt"))  ;; 8
+(print (solve1 "data/10/input.txt"))     ;; 6690
+(print (solve2 "data/10/example3.txt"))  ;; 4
+(print (solve2 "data/10/example4.txt"))  ;; 8
+(print (solve2 "data/10/example5.txt"))  ;; 10
+(print (solve2 "data/10/input.txt"))     ;; 525