Discussion :

[Mayeu]

Bonjour,
voila j'ai besoin de générer des chaînes de caratère que j'appelle chaînes possible.
En gros, j'ai trois lettres A,B,C et je veux que perl me sorte ca :
ABC
ACB
BAC
BCA
CAB
CBA.

Sachant que certaine fois le nombre de lettre ce restreint. Par exemple la chaîne suivante : (A/C)(A/B)CA
Correspond a : AACA, ABCA, CACA, CBCA.
Vous voyez ce que je veux dire?

Le problème c'est que ca fait pas mal de temps que je suis dessus, et je vois pas du tout comment réaliser ca... Si quelqu'un a une piste, merci d'avance!

[pospos]

salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
sub all_str {
	my $first = shift;
	my $second = shift || return @$first;
	my @list;
	for my $a (@$first) {
		for my $b (@$second) {
			push @list, $a.$b
		}
	}
	return all_str(\@list, @_) 
}

elle s'utilise comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
print join("\n", all_str(
	['A'..'B'],
	['A'..'C'],
	['A', 'C'],
	['B'],
));

ici pour (A/B)(A/B/C)(A/C)B

voici aussi une variante plus simple qui te renvoi seulement une des chaines au harard (meme arguments) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
sub any_str {
	join '', map {$_->[rand @$_]} @_
}

[Mayeu]

Merci de ton aide!

Entre temps j'ai trouvé un moyen de ne pas avoir besoin de générer tous les résultats (768 dans mon cas :/). Mais ce script reste quand même utile! (je pense en avoir surement besoin par la suite )

Encore merci!