Desafio

Mensagem por **Stanis Luksys** » 16 Jan 2008 08:55

Pessoal, tem um problema interessante para programadores que gostam de desafios:

Imagine um programa em que o usuário entra com um número qualquer.

O programa deve dizer se o número é par ou ímpar, no entanto sem se utilizar de nenhuma condição/validação, ou seja, não pode usar IF, IF(), WHILE, CASE etc... É só pegar o número e mostrar se é par ou ímpar.

É bem fácil... Quem se habilita??

MARINI · Mensagem por **MARINI** » 16 Jan 2008 09:23

LOCAL result[2],nr

result[1]:="PAR "
result[2]:="IMPAR"
nr:=1

DO WHILE .T.
@ 5,5 GET nr
READ
@ 7,5 say "numero "+result[(nr%2)+1]
ENDDO

Mensagem por **Maligno** » 16 Jan 2008 09:31

Essa o Marini matou fácil.

)
Então, só pra contribuir, simplifico: {"Par","Ímpar"}[n%2+1]

MARINI · Mensagem por **MARINI** » 16 Jan 2008 09:51

Outra solução:

nr:=1
DO WHILE .T.
@ 5,5 GET nr
READ
@ 7,5 say "numero "+PADR(SUBS("IMPAR",(nr+1)%2*3),5)
ENDDO

Mensagem por **Stanis Luksys** » 16 Jan 2008 09:51

Maligno escreveu:Essa o Marini matou fácil. )
Então, só pra contribuir, simplifico: {"Par","Ímpar"}[n%2+1]

Matou mesmo!! Parabéns!

Mas existem outras soluções. A minha mesmo foi diferente. O desafio permanece.

Mensagem por **Stanis Luksys** » 16 Jan 2008 09:53

MARINI escreveu:Outra solução:

nr:=1
DO WHILE .T.
@ 5,5 GET nr
READ
@ 7,5 say "numero "+PADR(SUBS("IMPAR",(nr+1)%2*3),5)
ENDDO

Eita, o pessoal ta rápido mesmo por aqui... rsrs

A minha solução foi parecida com essa, mas usei a função right().

Isso ae pessoal!!!

Mensagem por **Maligno** » 16 Jan 2008 10:00

Esse é o tipo de coisa que não tem por onde. Ou será por matriz ou por manipulação de string.

MARINI · Mensagem por **MARINI** » 16 Jan 2008 10:05

Uma outra solução:

nr:=1
result:="0PAR..1IMPAR"
DO WHILE .T.
@ 5,5 GET nr
READ
@ 7,5 say "numero "+SUBS(result,AT(STR(nr%2,1),result)+1,5)
ENDDO

Mensagem por **Maligno** » 16 Jan 2008 10:16

A solução por matriz me parece melhor, além de ser mais facilmente legível.

Mensagem por **Stanis Luksys** » 16 Jan 2008 10:40

Maligno escreveu:A solução por matriz me parece melhor, além de ser mais facilmente legível.

... E funcionar em qualquer idioma!!

MARINI · Mensagem por **MARINI** » 16 Jan 2008 10:45

E o Stanis não postou sua solução!!!

Mensagem por **Maligno** » 16 Jan 2008 10:49

Ele disse que usou uma solução parecida com a sua primeira, mas com a função Right(). Não muda muito.

Mensagem por **Stanis Luksys** » 16 Jan 2008 10:51

Mas eu falei!

A solução que adotei foi usando string também, através da função right..

Deixa eu ver se lembro:

Código: Selecionar todos

? right( "IMPAR", n%2 * 2 + 3 )

Augusto · Mensagem por **Augusto** » 16 Jan 2008 15:21

E se o número em questão for um "DECIMAL" ?? Essas soluções apresentadas funcionam ??

Mensagem por **Stanis Luksys** » 16 Jan 2008 15:27

Augusto escreveu:E se o número em questão for um "DECIMAL" ?? Essas soluções apresentadas funcionam ??

Sim, pois par ou impar trata de número reais, não somenet inteiros, e nem somente naturais.

Ou seja, todos os números, mesmo negativos.