An die Tutoren:
In den Backtick-Funktionen sind Fehler drin:
DEF makePosseq(<> , H) == revert(pos(0,0) :: H)
ohne das pos(0,0) funktioniert die Weg-Visualisierung nicht (Splitten
einer leeren Menge kommt nicht gut).
Und:
DEF `(tree, maze) == LET
dirseq == makePath(tree)
posseq == makePosseq(dirseq, pos(0,0) :: <>)
IN
`(posseq, 0, maze)
Das pos(0,0) führt dazu das der Weg immer von (0,0) aus gezeichnet wird.
Die Aufgabe verlangt aber eine universelle Lösung, also kann der
Startpunkt auch mal wo anders liegen...
Grüße, Martin