[Perl] Pog + Hello World

[acpguedes]

Galera, um POGraminha para vocês brincarem como quiserem...

é um Hello Wolrd em Perl, escrito de uma forma diferenciada
e usando técnicas de POG.

#!/usr/bin/perl

#Hello World

use strict;
use warnings;



INICIO :
while (my @let = sort ( 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 
'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', ' ')) {
    if ($let[0] eq 'h'){
        if ($let[1] eq 'e'){
            if ($let[2] eq 'l'){
                if ($let[2] eq 'l'){
                    if ($let[3] eq 'o'){
                        if ($let[7] eq ' '){
                            if ($let[4] eq 'w'){
                                if ($let[3] eq 'o'){
                                    if ($let[5] eq 'r'){
                                        if ($let[2] eq 'l'){
                                            if ($let[6] eq 'd'){
                                                
my $hello = $let[0].$let[1].$let[2].$let[2].$let[3].
$let[7].$let[4].$let[3].$let[5].$let[2].$let[6];
                                                print $hello ;
                                            }
                                        }
                                    }
                                }
                            }
                        }
                    }
                }
            }
        }
    }
    else{
    goto INICIO ;
    }
} 

Espero que vocês o aperfeiçoem e postem outros modelos, PRINCIPALMENTES OS INICIANTES!

[podolcee]

Programação Orientada a Gambiarras
Maneiro velho !

[KaiqueHunter]

Concatenação de String só para fazer um Hello World rsrsrs.

[acpguedes]

Não so isso.... se vc executar demorará mto tempo para aparecer,
pq o comando 'sort' vai atribuir uma posição dentro do array diferente toda vez
ate que as posições coincidão com as determinadas!!!!

Rola uma probabilidade loca ai
haha

[KaiqueHunter]

Entendi,esse Hello World só funciona quando o Array tem o "H" na primeira posição o "E" na segunda posição e assim em diante,muito intereçante.

[acpguedes]

Hahaha... isso mesmo... agora é so calcular quantas possibilidades...

são 8 caracteres diferentes (pq tem letra repetida)

logo é so fazer

n * (n-1) * ... * (n-7) para saber quantas possibilidades tem, sendo "n" o numero de caracteres...