我正在使用Haskell实现这个功能。
https://www.cs.bu.edu/teaching/alg/maze/
当到达“目标”时,我能够获取列表,但如果目标不可访问,则列表未更新。例如:
...#@ !!!#@
..#.. !!#..
.##.# it should return !##.#
...#. !!!#.
我的代码如下
path maze x y
| x >= length (head maze) = (False, maze)
| y >= length maze = (False, maze)
| x < 0 = (False, maze)
| y < 0 = (False,maze)
| check maze x y '+' = (False, maze)
| check maze x y '#' = (False,maze)
| check maze x y '!' = (False, maze)
| check maze x y 'G' = (True,maze)
| fst east = (True,snd east)
| fst south = (True, snd south)
| fst west = (True, snd west)
| fst north = (True, snd north)
| fst noWay = (True, snd noWay)
| otherwise = (False, maze)
where
noWay = path (changeVal maze x y '!') x (y+1)
north = path(changeVal maze x y '+') x (y-1)
south = path (changeVal maze x y '+') x (y+1)
east = path (changeVal maze x y '+') (x+1) y
west = path (changeVal maze x y '+') (x-1) y
我没有得到结果。我是Haskell的新手,能否有人给我一些帮助,这样我就可以解决这个愚蠢的问题。