Backtracking-Problem

[mashutu]

Ich habe jetzt nicht die Zeit um auf Dein Problem im Detail einzugehen.
Die Idee ist in der Regel folgende:

type
tSystem = class(TObject)
cubes : TCubes;

end;

var xCubes : tSystem;
tSystem enthaelt eine Konfiguration Deiner Wuerfel.

Nun beginnst Du mit einem beliebigen Anfangszustand der Wuerfel und probierst dabei alle Moeglichkeiten durch indem Du eine prozedur rekursiv aufrufst. Wenn der Versuch erfolgreich war, gehst Du eine Ebene tiefer, wenn nicht wird die naechste Stellung ausprobiert.