En fait, le plus compliqué c'est encore d'avoir des données pas triées

Retourner au contenu associé (entrée de forum : comment trier des nombres?)

# En fait, le plus compliqué c'est encore d'avoir des données pas triées

Posté par mac le 02 février 2005 à 09:19. En réponse au message comment trier des nombres?. Évalué à 1.

#!/usr/bin/perl -w

use Data::Dumper;

# Creer un tableau pas trie
srand;
@new = ();
@old = 1 .. 10;
while (@old)
{
push( @new, splice( @old, rand @old, 1 ) );
}

print Dumper (\@new);

# Trier le tableau
@sorted = sort {$a <=> $b} @new;
print Dumper (\@sorted);