module Gumimaze = let read = let withIndex xs = Array.mapi (fun i x -> x, i) xs let lines = "maze.txt" |> System.IO.File.ReadAllLines seq { for line, y in withIndex lines do for c, x in withIndex (line.ToCharArray ()) -> (x, y), c } |> Map.ofSeq let rec walk maze p walked pt = let walked = Map.add p true walked let aroundP = let x, y = p [x+1, y; x, y+1; x-1, y; x, y-1] let checkAndWalk p = match
