Anagrama usando Perl
Publicado por Jonatan Gomes (última atualização em 01/10/2010)
[ Hits: 7.345 ]
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"; }
Assistente de instalação por apt!
Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)
Pedagogia no brasil não passa de alfabetização por m4sturbação mental ... (2)
compilação samba 4.22 rock linux 9.5 (3)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)