Crivo de Eratóstenes Simples em Perl
Publicado por Perfil removido (última atualização em 02/04/2012)
[ Hits: 4.464 ]
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";
"Codificação" de texto em Perl
Inserindo o nome de aluno e calculando média de suas notas
Usando comandos shell com Perl
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Firewire resiste, Bcachefs sai: destaques Linux do dia
Kernel 6.18 em foco, betas fervilhando e avanços em IA no Linux
O que é o THP na configuração de RAM do Linux e quando desabilitá-lo
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como instalar Counter-Strike 1.6? (6)
intervenção politica pode interver no Fedora Linux [RESOLVIDO] (14)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (0)