Crivo de Eratóstenes Simples em Perl
Publicado por Perfil removido (última atualização em 02/04/2012)
[ Hits: 4.402 ]
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
Calculando a média entre dois valores
Inserindo o nome de aluno e calculando média de suas notas
Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Teclado n~ao escreve abnt2 (1)
Audio intermitente xubuntu notebook positivo c14 vision (5)
Adicional de convivdado em linux somente linha de comando (2)