Anagrama usando Perl
Publicado por Jonatan Gomes (última atualização em 01/10/2010)
[ Hits: 7.272 ]
Homepage: Em construção xD
Bom, para quem não sabe o que é um anagrama ou para quem se esqueceu, vou tentar dar uma simples resumida. Anagrama é quando você quer saber as possibilidades de uma palavra ter diferentes resultados, exemplo:
Com a palavra "One" podemos fazer 6 combinações distintas. Como assim distintas? Simples, quando especificamos distintas quer dizer que não podemos repetir a mesma letra mais de uma vez, as combinações ficarão assim:
One
Oen
Neo
Noe
Eno
Eon
Caso não seja distinta o resultado será de 27 combinações (pois as letras poderão se repetir). Anagrama é muito usado em simbologia e em outras áreas, essa é a versão 1.0, na próxima que mandarei eu vou fazer com que apareça também as palavras (só que não tenho a mínima noção de como fazer isso =]). Bom, aí está o código, se puderem dar uma melhorada nele eu agradeço...
#!/usr/bin/perl print "\n+---------------[R4ST4 4N4GR4M4]---------------+\n"; print "|-------------------------------1.0-----|\n"; print "| |\n"; print "| Gerador de Anagramas Versao 1.0 |\n"; print "| |\n"; print "| Coded By R4\$T4 |\n"; print "+---------------------------------------+\n\n"; sleep 3; print "\n\nPor favor Insira Uma Palavra\t"; chomp($palavra= <STDIN>); print "\n\nVoce quer resultado com numeros destintos? (S/N)\t"; chomp ($destinto= <STDIN>); @lista= split(//,$palavra); if (($destinto =~ /[Ss]/) || ($destinto =~ /[Ss]ao/)) { $vezes= @lista.""; $vezes2= @lista.""; $vezes3= @lista.""; for ($i= 1; $i = $vezes; $vezes--) { push (@aff, $vezes); } for ($vezes2= @lista.""; $vezes2 < 29; $vezes2++) { $h=1; push (@aff,$h); #aqui preenchemos todos os espaços que sobrarem da matriz por 1 } $conta= $aff[0] * $aff[1] * $aff[2]* $aff[3] * $aff[4]* $aff[5]*$aff[6]*$aff[7]*$aff[8]*$aff[9]*$aff[10]*$aff[11]*$aff[12]*$aff[13]*$aff[14]*$aff[15]*$aff[16]*$aff[17]*$aff[18]*$aff[19]; #aqui é o número maximo de letras print "\n\n O total de resultados possiveis: $conta\n"; } if (($destinto =~ /[Nn]/) || ($destinto =~ /[Nn]ao/)) { $vezes3= @lista.""; $conta2= $vezes3 ** $vezes3; print "\n\n O total de resultados possiveis: \t $conta2"; }
check_mem.pl - Plugin Nagios para checar consumo de RAM
Escrevendo varias linhas em um arquivo qualquer
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
Crivo de Eratóstenes Simples em Perl
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? (16)
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)