Índice (Logaritmo Discreto) em Perl
Publicado por Perfil removido (última atualização em 26/04/2013)
[ Hits: 3.323 ]
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";
MyBF - Interpretador de BrainFuck
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Dificuldade em ler binário (10)
script para gerar arquivo .AppImage (6)
Como substituir pacotes do sistema Linux Mint 21.3 (2)