Backtracking: Fische färben

  • Backtracking: Fische färben

    Hi!

    Aufgabe:
    Ein Würfel mit 12 Fischen darauf (ohne freie Flächen). Die Fische berühren sich.
    Nun soll das Programm die Fische mit vier Farben färben, dass sich berührende Fische nicht die gleiche Farbe haben.

    Hieraus kann man die sich berührenden Fische entnehmen:

    Quellcode

    1. matrix[ 1, 2]:=true; matrix[ 1, 3]:=true; matrix[ 1, 4]:=true; matrix[ 1, 5]:=true; matrix[ 1, 6]:=true;
    2. //Bsp: Fisch 1 berührt Fisch 2, 3, 4, 5 und 6.
    3. matrix[ 2, 1]:=true; matrix[ 2, 3]:=true; matrix[ 2, 6]:=true; matrix[ 2, 7]:=true; matrix[ 2, 8]:=true;
    4. matrix[ 3, 1]:=true; matrix[ 3, 2]:=true; matrix[ 3, 5]:=true; matrix[ 3, 8]:=true; matrix[ 3, 9]:=true;
    5. matrix[ 4, 1]:=true; matrix[ 4, 5]:=true; matrix[ 4, 6]:=true; matrix[ 4,10]:=true; matrix[ 4,11]:=true;
    6. matrix[ 5, 1]:=true; matrix[ 5, 3]:=true; matrix[ 5, 4]:=true; matrix[ 5, 9]:=true; matrix[ 5,10]:=true;
    7. matrix[ 6, 1]:=true; matrix[ 6, 2]:=true; matrix[ 6, 4]:=true; matrix[ 6, 7]:=true; matrix[ 6,11]:=true;
    8. matrix[ 7, 2]:=true; matrix[ 7, 6]:=true; matrix[ 7, 8]:=true; matrix[ 7,11]:=true; matrix[ 7,12]:=true;
    9. matrix[ 8, 2]:=true; matrix[ 8, 3]:=true; matrix[ 8, 7]:=true; matrix[ 8, 9]:=true; matrix[ 8,12]:=true;
    10. matrix[ 9, 3]:=true; matrix[ 9, 5]:=true; matrix[ 9, 8]:=true; matrix[ 9,10]:=true; matrix[ 9,12]:=true;
    11. matrix[10, 4]:=true; matrix[10, 5]:=true; matrix[10, 9]:=true; matrix[10,11]:=true; matrix[10,12]:=true;
    12. matrix[11, 4]:=true; matrix[11, 6]:=true; matrix[11, 7]:=true; matrix[11,10]:=true; matrix[11,12]:=true;
    13. matrix[12, 7]:=true; matrix[12, 8]:=true; matrix[12, 9]:=true; matrix[12,10]:=true; matrix[12,11]:=true;
    Alles anzeigen


    Hier eine (eher hässliche) Musterlösung.
    Meine (schönere Lösung) hat leider nicht ganz funktioniert... :(

    Grüße,
    Max123
    Dateien
    Die Japaner glauben jetzt auch, sie könnten den Superrechner verkaufen. Das wäre
    so, als würde man einen Jumbo-Jet nehmen, vorne und hinten die Spitzen absägen,
    davon 10 Stück zusammenschweißen und als ultimativen Super-Jet verkaufen.