Discussion :

[Arioch]

Hello,

je cherche parmi les pros du Perl (y en a ici ) qqun qui saurait me dire, par le biais d'un code, comment faire en sorte qu'une liste contenant des nombres soit mélangée aléatoirement.

Exemple : qu'en partant de (1,2,3,4,5,6,7,8,9,10), j'obtienne (10,7,3,4,5,8,1,9,2,6)

: : :

Détail qui a son importance éventuellement : les nombres peuvent se répéter plusieurs fois dans la liste

[Arioch]

J'ai travaillé sur un bout de code que voici :

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
use strict;
srand();
 
my @liste = (1,2,3,4,5,6,7,8,9,10);
 
@liste = RandomListe(@liste);
print join(" ",  @liste);
 
 
sub RandomListe
{
    my @retour;
 
    while(@_)
    {
        $_ = rand(scalar(@_));
        push(@retour, $_[$_]);
        $_[$_] = 0;
        my @tmp;
        foreach(@_)
        {
            push(@tmp, $_) if ($_);
        }
        @_ = @tmp;
    }
 
    return @retour;
}

Y trouvez-vous quelque chose à optimiser ?

[GLDavid]

Et ce petit snippet ?

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
 
#!/usr/bin/perl -w
 
use strict;
 
srand();
 
my @liste;
 
@liste = BuildList();
print join(" ",  @liste);
 
sub BuildList{
        my @array;
        for(0..10){
                $array[$_] = random();
        }
        return @array;
}
 
sub random{
        my @values = (0,1,2,3,4,5,6,7,8,9,10);
        my $val = int(rand(scalar(@values)));
        if($val < 0 || $val>10){
                random();
        }
        else{
                return $val;
        }
        return;
}

@++

[Arioch]

Arf, j'aurais dû le préciser dans mon post

Je n'ai pas de 0 dans ma liste, quelle qu'elle soit et la liste ne constitue pas une suite de nombres avec pas de progression de 1

Je peux avoir fréquemment ce genre d'exemple : (64,64,64,128,128,256,512,512)

Le but de la manip est que la liste soit mélangée

[Jedai]

Voilà LE post où tu auras les meilleures solutions, et ultra performantes aussi :
http://www.developpez.net/forums/viewtopic.php?t=433657
(Tu as dû l'oublier d'ailleurs, parce que tu étais intervenu à l'époque).
Au final je recommande quand même d'utiliser List::Util::shuffle(), c'est la solution la plus simple (List::Util est dans le Core) avec des performances très correctes.

--
Jedaï

[lami20j]

Salut,

voir aussi http://perl.enstimac.fr/DocFr/perlfaq4.html

Comment mélanger le contenu d'un tableau ?....le mélangeur de Fisher-Yates

lami20j

[Jedai]

C'est exactement l'algorithme utilisé dans mon post... mais de toute façon, le shuffle de List::Util est à privilégier s'il est disponible (puisque codé en C).

--
Jedaï

[lami20j]

Salut,

C'est exactement l'algorithme utilisé dans mon post...

Je n'ai pas dit le contraire. Seulement un rappel de passer par les Faqs

Bonne soirée,

lami20j

[Jedai]

Ce n'était pas un reproche, juste une remarque et bien sûr tu as tout à fait raison à propos des faq, surtout qu'on peut facilement faire des recherches dedans (perldoc -q shuffle, par exemple).

--
Jedaï