diff --git a/solutions/src/2023/25.hs b/solutions/src/2023/25.hs index e939d00..c870979 100644 --- a/solutions/src/2023/25.hs +++ b/solutions/src/2023/25.hs @@ -34,7 +34,7 @@ main = putChar '\^H' hFlush stdout loop xs - loop (cycle "←↖↑→↘↓↙") + loop (cycle "←↖↑↗︎→↘↓↙") simpleGraph :: [(Int, [Int])] -> UGr simpleGraph input =