Manipulation des valeurs contenues dans un tableau

Version imprimable

28/05/2007, 11h07
khasanouray

Manipulation des valeurs contenues dans un tableau

bonjour
Existe t-il une fonction permettant à partir des éléments contenues dans un tableau d'obtenir toutes les combinaisons possibles des éléments les uns avec les autres.
Ex : si j'ai un tableau qui contient 1 puis 2 puis 3
comment obtenir 123,132,213,231,312,321

Module CPAN : Algorithm::Combinatorics.

Ce module est optimisé et très facile à utiliser, de plus il fournit des itérateurs, ce qui évite de manger la mémoire avec d'énorme listes de permutations.

Sinon un code simple qui répond à ta question est :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 sub perms; sub perms { if( @_ < 2 ) { return ([@_]); } else { map { my $i = $_; map { [$_[$i], @$_] } (perms @_[0..$i-1], @_[$i+1..$#_]); } (0 .. $#_) } }
Je ne te conseillerais pas de l'utiliser pour plus de 9 éléments toutefois.

--
Jedaï

Exemple d'utilisation du code précédent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict; use warnings;
 
sub perms;
 
sub perms {
    if( @_ < 2 ) {
        return ([@_]);
    } else {        
        map {
            my $i = $_;
            map { [$_[$i], @$_] } (perms @_[0..$i-1], @_[$i+1..$#_]);
        } (0 .. $#_) 
    }
}
 
print "@$_\n" for perms 1,2,3,4,5,6,7,8;
 
__END__

--
Jedaï

Remarque qu'en fait cette question fait partie de la FAQ officielle de Perl, tu peux la trouver en tapant "perldoc -q permute" en console. La réponse conseille Algorithm::Permute (Algorithm::* est une famille de module CPAN très intéressante) et fournit une fonction utilisable en mode "callback", ce qui permet d'obtenir un résultat plus régulier, faute d'être plus rapide en tout que ma fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 sub permuteFK (&@) { my $code = shift; my @idx = 0 .. $#_; while ( $code->( @_[@idx] ) ) { my $p = $#idx; --$p while $idx[ $p - 1 ] > $idx[$p]; my $q = $p or return; push @idx, reverse splice @idx, $p; ++$q while $idx[ $p - 1 ] > $idx[$q]; @idx[ $p - 1, $q ] = @idx[ $q, $p - 1 ]; } } permuteFK {print"@_\n"} (1..8);
(Avec ce code, l'affichage se fait "au fur et à mesure", ce qui a le double avantage de présenter un affichage plus régulier d'un bout à l'autre de l'exécution de la fonction, mais également d'éviter de devoir stocker la liste des permutations en mémoire)

--
Jedaï