[SP-pm] Dúvida com Hash Slices

[Renato Santos]

ops,
esqueci de diminuir o codigo
@m{A..Z,0..9,"\n"}=(qw(.- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
-. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --.. ----- .---- ..---
...-- ....- ..... -.... --... ---..
----.),"\n");for(<>){@c=split(//,$_);print $m{$_}." "for(@c)}

Alguem sabe como o Zoltán
Zámbori<https://www.spoj.pl/SHORTEN/users/sambowry/> fez
em 183 caracteres?

2010/7/25 Renato Santos <renato.cron at gmail.com>

> aeee
> consegui passar no Morse Code
> https://www.spoj.pl/SHORTEN/ranks/MORSE_CD/
>
> <https://www.spoj.pl/SHORTEN/ranks/MORSE_CD/>
> @m{'A'..'Z','0'..'9',"\n"}=(qw(.- -... -.-. -.. . ..-. --. .... .. .--- -.-
> .-.. -- -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --.. ----- .----
> ..--- ...-- ....- ..... -.... --... ---.. ----.),"\n");
> for(<>){
> @chars = split(//,$_);
> for (@chars){
> print $m{$_}." ";
> }
> }
>
> 2010/7/25 Pinguim Azul <bluepenguin at gmail.com>
>
>> O input é uma coisa só, você tem que lidar com a quebra de linha.
>>
>>
>> 2010/7/25 Renato Santos <renato.cron at gmail.com>
>>
>>> Por exemplo,
>>> se a entrada é
>>>
>>> DO YOUR BEST
>>> 1 PLUS 1 EQUALS 2
>>>
>>> Tenho que fazer o perl "printar" isso com "\n"?
>>>
>>> Que dizer,
>>>
>>> ele vai rodar o perl com "DO YOUR BEST" e depois "1 PLUS 1 EQUALS 2" ou tudo duma vez?
>>>
>>>
>>> 2010/7/25 Pinguim Azul <bluepenguin at gmail.com>
>>>
>>>> Esse não funciona porque o primeiro número do input é o número de
>>>> elementos.
>>>>
>>>>
>>>> 2010/7/25 Renato Santos <renato.cron at gmail.com>
>>>>
>>>>> Hmm, esse dai dava pau:
>>>>>
>>>>>    -
>>>>>
>>>>>
>>>>>    Can't take log of 0 at prog.pl line 1, <> line 4.
>>>>>
>>>>>
>>>>>
>>>>> Mas esse daki funciona, mas ta dando resposta errada, ai desisti!
>>>>> Ja tentei botar "\r\n", "\n", tirar o \n, etc..
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> for(<>){$_ |= $_>>1; $_ |= $_>>2; $_ |= $_>>4; $_ |= $_>>8; $_ |= $_>>16;print ++$_."\n"}
>>>>>
>>>>> 2010/7/25 Pinguim Azul <bluepenguin at gmail.com>
>>>>>
>>>>>> Ele funciona mesmo se tiver um 0 na entrada?
>>>>>>
>>>>>> 2010/7/25 Renato Santos <renato.cron at gmail.com>:
>>>>>> > agora eu eu vou fazer um super off topic!
>>>>>> > Estou tentando resolver um problema simples (next power of 2)
>>>>>> > mas ta dando erro em tempo de compilacao
>>>>>> > for(<>){$l=log($_)/log(2);$l=int($l+1)if $l!=int($l);print
>>>>>> 2**$l."\n"}
>>>>>> > Mas no ideone funciona
>>>>>> >
>>>>>> > 2010/7/25 Pinguim Azul <bluepenguin at gmail.com>
>>>>>> >>
>>>>>> >> 2010/7/25 Eden Cardim <edencardim at gmail.com>:
>>>>>> >> >>>>>> "Pinguim" == Pinguim Azul <bluepenguin at gmail.com> writes:
>>>>>> >> >    Pinguim> Nenhum dos dois vai funcionar, porque vocês ignoraram
>>>>>> o
>>>>>> >> >    Pinguim> primeiro número.
>>>>>> >> >
>>>>>> >> > O exemplo proposto em
>>>>>> https://www.spoj.pl/SHORTEN/problems/SIZECON/ não
>>>>>> >> > é bem claro quanto ao que se deve fazer com entradas
>>>>>> mal-formadas. Um
>>>>>> >> > exemplo melhor seria se demonstrar a saída pra esse caso. Isso
>>>>>> >> > provavelmente explica porque tem tantos erros para um problema
>>>>>> tão
>>>>>> >> > fácil.
>>>>>> >>
>>>>>> >> Eu concordo que esse problema está mal escrito mesmo, mas eu acho
>>>>>> que
>>>>>> >> ele é exceção.
>>>>>> >>
>>>>>> >> --
>>>>>> >> Ricardo Bittencourt
>>>>>> >> http://www.ricbit.com
>>>>>> >> _______________________________________________
>>>>>> >> SaoPaulo-pm mailing list
>>>>>> >> SaoPaulo-pm at pm.org
>>>>>> >> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>> >
>>>>>> >
>>>>>> >
>>>>>> > --
>>>>>> > Renato Santos
>>>>>> > http://www.renatocron.com/blog/
>>>>>> >
>>>>>> > _______________________________________________
>>>>>> > SaoPaulo-pm mailing list
>>>>>> > SaoPaulo-pm at pm.org
>>>>>> > http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>> >
>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Ricardo Bittencourt
>>>>>> http://www.ricbit.com
>>>>>> _______________________________________________
>>>>>> SaoPaulo-pm mailing list
>>>>>> SaoPaulo-pm at pm.org
>>>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Renato Santos
>>>>> http://www.renatocron.com/blog/
>>>>>
>>>>> _______________________________________________
>>>>> SaoPaulo-pm mailing list
>>>>> SaoPaulo-pm at pm.org
>>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>>
>>>>
>>>>
>>>>
>>>> --
>>>> Ricardo Bittencourt
>>>> http://www.ricbit.com
>>>>
>>>> _______________________________________________
>>>> SaoPaulo-pm mailing list
>>>> SaoPaulo-pm at pm.org
>>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>>
>>>
>>>
>>>
>>> --
>>> Renato Santos
>>> http://www.renatocron.com/blog/
>>>
>>> _______________________________________________
>>> SaoPaulo-pm mailing list
>>> SaoPaulo-pm at pm.org
>>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>>
>>
>>
>>
>> --
>> Ricardo Bittencourt
>> http://www.ricbit.com
>>
>> _______________________________________________
>> SaoPaulo-pm mailing list
>> SaoPaulo-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>
>
>
>
> --
> Renato Santos
> http://www.renatocron.com/blog/
>



-- 
Renato Santos
http://www.renatocron.com/blog/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20100725/5d08ec31/attachment.html>