Crivo de Eratóstenes Simples em Perl
Publicado por Perfil removido (última atualização em 02/04/2012)
[ Hits: 4.394 ]
Crivo simples. Valores devem ser alterados no código.
Obs[1]: "Redundâncias" {} ficam como curiosidade.
Obs[2]: Quem puder testar e fazer "benchmark" com valores elevados e sistemas mínimos, máquinas virtuais etc. eu agradeceria
#!/usr/bin/perl use strict; use warnings; my @primes=(2, 3); my ($i, $j, $k) = (5, 0, 0); do { $j = 0; $k=sqrt($i); do {} while ($primes[++$j]<$k and ($i%$primes[$j])); push (@primes, $i) if ($primes[$j]>$k); $i+=(($i%3==2)?2:4); } while ($i<1000000); foreach (@primes) { print "$_ "; } print "\n";
Lista de números aleatórios não-repetidos de um intervalo em Perl
"Codificação" de texto em Perl
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Problema ao atualizar archlinux nvidia [RESOLVIDO] (3)
O que você está ouvindo agora? [2] (186)