Game of Life

[Luckie]

Verd***t. Ich glaube, ich habe hier gerade dieses Hasenvermehrungsprogramm geschrieben.

Ich habe jetzt Christians stilisierten Code wie folgt umgesetzt:

Delphi-Quellcode:

      { Feld besetzt ... }
      if MicrobeArray2[x,y] = 1 then
      begin
        { ... und 3 Nachbarnfelder besetzt ... }
        if Summe = 3 then
          { ... lebt weiter }
          MicrobeArray2[x,y] := 1
        else
          MicrobeArray2[x,y] := 0;
      end;
      { Feld leer ... }
      if MicrobeArray2[x,y] = 0 then
      begin
        { ... 3 Nachbarfelder besetzt ... }
        if Summe = 3 then
          { ... Feld wird bevölkert }
          MicrobeArray2[x,y] := 1
        else
          Microbearray2[x,y] := 0;
      end;

Das führt aber zu einer Bevölkerungsexplosion ohne gleichen.

Zitat von Help - The Beatles:

Help me if you can, I'm feeling down
And I do appreciate you being round.
Help me, get my feet back on the ground,
Won't you please, please help me, help me, help me, oh