Algorithme bruteforce: énumère toute les possibilités d'un ensemble par récursivité

Description

Permet de générer toutes les possibilités de plusieurs caractères a l'aide d'une fonction récursive.

Source / Exemple :


procedure tform1.allkey(chaine: String; maxlen: Integer);
var i:integer;
begin
if stop then begin
    timer1.Enabled:= false;
    exit;
end;
If (Length(chaine) < maxlen) Then //pour ne pas dépasser la longeur
    For i := 1 To Length(dico) do
        allkey(chaine + Midstr(dico, i, 1), maxlen )

Else
If (Length(chaine) = maxlen) Then //si longueur, on traite le résultat grace a pOut
pOut (chaine) 

end;

//GO TO ZIP!!

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.