Lösung Aufgabe 4

main:{laufediagonal loch vorbisHindernis linksUm vorbisHindernis drehen kornSuchen rechtsUm vorbisHindernis loch vorbisHindernis linksUm vorbisHindernis gib} rechtsUm:{linksUm linksUm linksUm} laufediagonal:{vor rechtsUm vor linksUm if vornFrei laufediagonal} loch:{rechtsUm vor linksUm if vornFrei vor else loch} vorbisHindernis:{while vornFrei vor} drehen:{linksUm linksUm} kornSuchen:{while vornFrei {vor if kornDa nimm}}