Discussion :

[djibril]

Salut,
Besoin d'un coup de main pour algo, plus de cervelle pour réfléchir .

Je vais procéder par un exemple.
J'ai une sequence de ce type : ATKKQ
K <=> Q les deux peuvent se remplacer,
Je souhaiterais obtenir toutes les combinaisons possible, c'est à dire :

ATKKQ
ATKQQ
ATQQQ
ATQQK
ATQKK
ATKKK
ATKQK
ATQKQ

soit 2 puissance 3 = 8 séquences.
Si ma séquence avait 3 (des k et q) ça ferait 2 puissance 4 soit 16 séquences.

help pour l'algo sachant que j'ai déjà une procedure pour me recuperer les positions de q et k dans la séquence. Merci

[CKLN00]

J'ai pas de solution mais je pense que si jasmine en as pas déjà trouver une elle seras intérésser par celle que tu trouveras (pour un problème de codage d'acides nucléiques IUB)

[Jedai]

Va voir ma solution pour le problème de Jasmine, par contre gaffe aux boucles infinies, remplace tes Q et K par un autre caractère au préalable et ensuite utilise le même algo que Jasmine.

--
Jedaï

[djibril]

TON code ne fait pas ce que je souhaite, et jasmine ne fait pas exactement ce que je souhaites.

[witch]

Bonjour djibril,

Moi j'ai pensé à une solution simple mais au niveau performance ça reste à voir.
J'ai pensé à utiliser la fonction Rand pour générer à chaque fois un index au hazard pour chacune des trois derniers lettres de la chaine "ATKKK", stocker à chaque fois la nouvelle séquence en vérifiant si elle existe déjà, sinon faire un compteur jusqu'a ce qu'on récupére les 8 séquences différentes, pour le nombre 8 on peut le déduire comme t'avais cité au début, pour ton exemple ça doit etre un nombre qui est égale à 2 à la puissance 3, si on a 4 lettres qui constituent l'élément, ça doit faire un nombre : 2 à la puissance 4 des combinaisons différentes et ainsi de suite...
j'ai essayé de faire un petit code mais j'ai calé sur la syntaxe, voilà je suis curieuse de découvrir aussi d'autres solutions


++

[Jedai]

TON code ne fait pas ce que je souhaite, et jasmine ne fait pas exactement ce que je souhaites.

Mon code fais exactement ce que tu souhaites, sauf si tu tiens à un ordre particulier. Pour l'utiliser, utilise un hash de correspondance genre ('N' => ['Q', 'K']) et remplace tous les Q et K de ton expression par des N avant de lancer ma fonction.

--
Jedaï

[djibril]

en reprenant ton ex, ça ne me donne rien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#my $sequence = "YHDDIEEKSSMEKLWH";
 
 
my $amorce = 'ATXXX';
 
my %correspondances =
    (
            'X' => ['K', 'Q'],
    );
 
print "pour l'amorces $amorce on trouve les résultats suivants :\n" ;
core( sub { print "$_\n" }, $amorce) ;
 
print "fin\n" ;
 
sub core
{
  my ($code, $amorce) = @_ ;
 
  if ( my ($start, $middle, $end) = ($amorce =~ /^(\w*)([X])(\w*)$/i) )  {
    foreach my $alt (@{$correspondances{$middle}}) {
      core( $code, "$start$alt$end" );
    }
  }
  else {
    local $_ = $amorce ;
    $code->();
  }
}
 
 
 
__END__