Lista de números aleatórios não-repetidos de um intervalo em Perl
Publicado por Perfil removido (última atualização em 16/04/2012)
[ Hits: 5.894 ]
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.
#!/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";
Cadastro usando arquivos .txt para guardar dados
check_mem.pl - Plugin Nagios para checar consumo de RAM
Escrevendo varias linhas em um arquivo qualquer
Nenhum comentário foi encontrado.
XFCE - quase um Gnome ou Plasma mas muito mais leve
LXQT - funcional para máquinas pererecas e usuários menos exigentes
Instalação do K3s Single-Node com Rancher no Ubuntu 24.04
Usei o NotebookLM para Auditar Logs do Linux
Cinnamon seria a aposta acertada frente às outras interfaces gráficas mais populares?
Samba 4 AD-DC 2026: Como instalar e configurar um Active Directory (via APT-GET)
[Resolvido] Sumiço de redes e micro quedas no iwd/iwgtk (Realtek rtw88)
Como Configurar DNS Reverso (PTR) em Ambientes Linux e Microsoft
Preparando o Ambiente para Administrar o Samba 4 a partir do Windows com RSAT
Problema ao instalar Linux Mint. (1)
Midia de instalação LM-21.3 não inicializa (11)
A diferença entre a fala de um Samuel e a fala de alguém que conhece o... (9)









