Este script gera uma lista unidimensional tamanho N, preenchendo esta completamente com números aleatórios no intervalo de 1 até N sem repetições.

Gera-se um número aleatório, este é verificado se foi inserido anteriormente. Se caso não, ele o insere e repete o procedimento, senão ele gera outro valor e procura novamente se repetiu. Até que a lista esteja por completo cheia com um valor de cada.

Repetições podem ser visualmente identificadas através de:
$ ./alea001,pl | sort -n --key=2

Escolheu-se o valor 52 para teste por ser este o número de cartas de um baralho-padrão.
A verificação de repetições tornar-se á exaustiva caso não seja automatizada.

Por enquanto não constam falhas, sendo que na versão em C já constei por algo. Logo podem haver.

• Download alea001.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

use strict;
use warnings;

# Para testar se não há números repetidos, usar por exemplo:
# ./alea001.pl | sort -n --key=2

BEGIN { srand() if $] < 5.004 }

my $VALOR = 52;

my ($i, $j, $k);
my @vec = ();

my $n = $VALOR;

$i = 0;
while ($i<$n) { $vec[$i++] = -1; }

($i, $j) = (0, 0);
while ($i<$n) {

   $j = 1 + int rand($n);

   $k = 0;
   while ($k<=$i && $vec[$k++]!=$j) {}

   $vec[$i++] = $j if ($k==$i+1);

}

$i = 0;
while ($i<$n) { print "$i\t$vec[$i++]\n"; }

#print "\n";

Aprendendo a fazer equações em Perl

"Codificação" de texto em Perl

Saiba quanto de energia seu PC gasta aproximadamente por mês

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Obtendo horas do sistema

Nenhum comentário foi encontrado.