"Schlossknack"-Algorithmus

[Apollonius]

Ich nehme alles zurück!!! Neutral Generals Lösung funktioniert nicht, es sei denn, ich habe was falsch implementiert. Man muss ja sozusagen x ineinanderverschachtelte for-schleifen haben. Da fällt mir nichts anderes ein als die Rekursion, also:

Delphi-Quellcode:

var schloss:array[1..stellen] of integer;

procedure angriff(laenge:integer);
var i:integer;
begin
if laenge=1 then
 begin
  for i:=0 to 9 do
   begin
    schloss[laenge]:=i;
    knackdasschloss(schloss);
   end;
 end
else
 begin
  for i:=0 to 9 do
   begin
    schloss[laenge]:=i;
    angriff(laenge-1);
   end;
 end;

end;

//Aufruf
angriff(stellen);

Im Prinzip ist das eine Simulation von laenge ineineanderverschlachtelten for-Schleifen.