Índice (Logaritmo Discreto) em Perl
Publicado por Perfil removido (última atualização em 26/04/2013)
[ Hits: 3.443 ]
O problema do índice se resume a:
"Dado dois inteiros N e B, qual o menor expoente I tal que B elevado à I e dividido por N tenha resto igual a 1?"
Se ao invés deste resto 1 for usado um valor R, com o valor de R estando entre 0 e N-1 tem-se então o problema do logaritmo discreto.
Para B=2 e N=31, I vale 5. => 2,4,8,16,32 => 32/31 resto = 1
Para B=4 e N=60, não existe resposta válida. => 4, 16, 64 => 64/60 resto 4 e permanece num ciclo fechado.
Ou 64%60 = 4, que é como se escreve em algumas linguagens.
Este programa calcula índice por brute-force.
#!/usr/bin/perl use strict; use warnings; sub indice { my ($base, $mod) = (shift, shift); my ($index, $acum) = (1, $base % $mod); $base %= $mod; do { $acum *= $base; $acum %= $mod; $index++; } until ($acum == $base || $acum == 1); ($acum==1) ? return $index : return -1; } my $B = 5; my $N = 64; my $I = indice($B, $N); print "$I\n";
Diminuir ou aumentar o brilho de notebook
Wallpapers aleatórios no Fluxbox
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)