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}}