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";

Calculadora de IMC em Perl

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Separa os dígitos de um número

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

Escrevendo varias linhas em um arquivo qualquer

Nenhum comentário foi encontrado.