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