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.683 ]
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";
Saiba quanto de energia seu PC gasta aproximadamente por mês
Soma varios valores e mostra sua media
Renomeando arquivos de forma padronizada
check_mem.pl - Plugin Nagios para checar consumo de RAM
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Copiar Layout do Teclado para aplicar em outra Distribuição (4)
QUERO USAR ABNT 2 NO LINUX MINT (1)
Alguém poderia me ajudar a escolher peças pra montar um desktop? (32)