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.449 ]
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";
Calculando a média entre dois valores
Inserindo o nome de aluno e calculando média de suas notas
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba