[Cascavel-pm] Brincadeira / desafio aos Monges

[Eduardo Maia]

É, dá para resolver em uma só linha, mas não retornou o string "é par" ou "é ímpar" :P

Abraços.


On Sat, 11 Mar 2006 14:01:24 -0300, "Nilson Santos Figueiredo Junior" <acid06 em gmail.com> escreveu:
> De: "Nilson Santos Figueiredo Junior" <acid06 em gmail.com>
> Data: Sat, 11 Mar 2006 14:01:24 -0300
> Para: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Assunto: Re: [Cascavel-pm] Brincadeira / desafio aos Monges
> 
> sub is_even { ! (substr($_[0], -1) % 2)  }
> 
> Funciona pra qualquer tamanho de número, desde que você passe o número
> como uma string, para números maiores que 2**49.
> 
> -Nilson Santos F. Jr.
> 
> On 3/11/06, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> > há um porem no codigo..
> >
> > acima de 16 digitos é tudo par :T
> >
> > abraços,
> >
> > Gabriel Vieira
> >
> > - Membro Sociedade Perl Brasil
> > http://www.perl.org.br/
> > - dsgX Network Solutions
> > http://www.dsgX.org/
> > ----- Original Message -----
> > From: "Gabriel Vieira" <gabriel.vieira em gmail.com>
> > To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> > Sent: Saturday, March 11, 2006 12:17 PM
> > Subject: Re: [Cascavel-pm] Brincadeira / desafio aos Monges
> >
> >
> > > Segue..
> > >
> > > --------------->8----------------
> > > @valida = ("par","impar");
> > > while(1){
> > > chomp(my $numero = <STDIN>);
> > > print &verifica($numero);
> > >
> > > }
> > > sub verifica{
> > > my $numero = shift;
> > > return "$numero) é ". $valida[($numero % 2)] . "\n";
> > > }
> > > -------------8<--------------
> > > resolve? :D
> > >
> > > se sim foi baba hehe
> > >
> > > abraços,
> > >
> > > Gabriel Vieira
> > >
> > > - Membro Sociedade Perl Brasil
> > > http://www.perl.org.br/
> > > - dsgX Network Solutions
> > > http://www.dsgX.org/
> > > ----- Original Message -----
> > > From: "Eduardo Maia" <maia em suaweb.com>
> > > To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> > > Sent: Saturday, March 11, 2006 5:13 AM
> > > Subject: [Cascavel-pm] Brincadeira / desafio aos Monges
> > >
> > >
> > > Eu apresentei a brincadeira a seguir no último encontro de Monges do RJ,
> > > foi bastante divertido. Teve gente que jurou que não tinha solução, mas
> > > teve gente que matou, o Fernando "Debian" disse que ia até apresentar essa
> > > questão nas aulas dele.
> > >
> > > Seguinte: escrever uma subrotina em Perl que receba um inteiro, e retorne
> > > um entre dois strings: "é ímpar", ou "é par". A subrotina deve verificar
> > > SE o número recebido como parâmetro é par ou ímpar, e retornar o string
> > > correspondente. Só que SEM USAR CONDICIONAL, não vale usar if / and / && /
> > > || / xor / ? / etc. E tem que retornar string "é ímpar" ou "é par".
> > >
> > > E aí, quem manda a solução primeiro? Monge do RJ não vale!
> > >
> > > Abraços a todos!
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
>