Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   La Taberna (https://www.clubdelphi.com/foros/forumdisplay.php?f=40)
-   -   El problema FizzBuzz (https://www.clubdelphi.com/foros/showthread.php?t=77620)

Casimiro Notevi 12-02-2012 03:00:07

El problema FizzBuzz
 
Propongo realizar este problema:

Cita:

Escribe, en el lenguaje de programación que desees, un programa que muestre en pantalla los números del 1 al 100, sustituyendo los múltiplos de 3 por el palabro “Fizz” y, a su vez, los múltiplos de 5 por “Buzz”. Para los guarismos que, al tiempo, son múltiplos de 3 y 5, utiliza el combinado “FizzBuzz”.
No hagas trampas y controla el tiempo que tardas en hacerlo.

beginner01 12-02-2012 04:46:12

Hola.

sería algo así?

Código Delphi [-]
var
  i
  ,OldVal: Integer;
  NewVal: Extended;
  Str: String;
begin

   OldVal := EdtInput.Value;  //TIntEdit

   for i := 1 to OldVal do
   begin
      Str:='';

     NewVal := i / 3;

     if round(NewVal) = NewVal then
        Str:= 'Fizz';

        NewVal:= i / 5;

       if  round(NewVal) = NewVal then
        Str:= Str+'Buzz';

       if Str = '' then
        Str:= IntToStr(i);

       MmOutput.Lines.Add(Str); //TMemo
     end;
 end;

newtron 12-02-2012 09:39:09

Ummmmmmm.... ¿esto tiene trampa?

Si lo he entendido bien el código sería este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n: SmallInt;
m: Currency;
begin
  for N:=1 to 100 do begin
    if (N mod 3= 0) and (N mod 5=0) then begin
      ListBox1.Items.Add('FizzBuzz');
    end else if (N mod 3= 0) then begin
      ListBox1.Items.Add('Fizz');
    end else if (N mod 5= 0) then begin
      ListBox1.Items.Add('Buzz');
    end else begin
      ListBox1.Items.Add(IntToStr(N));
    end;
  end;
end;

el resultado sería este:



y el tiempo ha sido dos minutillos y pico. ¿Es mucho? :o

Casimiro Notevi 12-02-2012 11:59:57

Esto es un problema que piden en algunas ocasiones las empresas que buscan programadores, se trata de ver cómo lo hacen, el tiempo que necesitan para hacerlo, la optimización, "los detalles", etc.
Por ejemplo, está más optimizado para el bucle usar un smallint que un integer, incluso mejor todavía un byte, si fuese posible.
No son necesarios decimales, así que se pueden usar tipos de datos acorde a eso.
Si el programa hace lo mismo pero con muchas menos líneas, es otro buen punto a favor.
También dicen que si se tarda al menos 10 minutos es que ese programador no es válido, sin embargo, tiempos de menos de 3 minutos es un programador muy recomendable.
No quiere decir que porque tenga menos líneas va a ser mejor, puede ser un código muy ofuscado y no convenga a la empresa, puede ser más recomendable algo intermedio.
En fin, que depende de para qué empresa, puede ser más interesante uno u otro.
Desde luego que newtron, para no ser programador, ha tardado muy poco :)
Por poner un par de ejemplos:

Programador 1:
Código:

public class FizzBuzz
{
      public static void main(String [] args)
    {
          int k;
          for(int i=1; i=100; i++)
        {
            k = 0;
              if(i%3==0)
            {
                k = 1;
            }
              if(i%5==0)
            {
                k = k + 2;
            }
              switch(k)
            {
                case 1:
                    System.out.println("Fizz");
                    break;
                case 2:
                    System.out.println("Buzz");
                    break;
                case 3:
                    System.out.println("FizzBuzz");
                    break;
                default:
                    System.out.println(i);
            }
        }
    }
}

Programador 2:
Código:

for(int i=0;i<100;printf(i%3==0?i%5==0?"Fizzbuzz":"FIZZ":i%5==0?"BUZZ":"%i",i++));
Hay diferencias, ¿no creen?

newtron 12-02-2012 13:18:48

Cita:

Empezado por Casimiro Notevi (Mensaje 424922)
[/code]Programador 2:
Código:

for(int i=0;i100;printf(i%3==0?i%5==0?"Fizzbuzz":"FIZZ":i%5==0?"BUZZ":"%i",i++));
Hay diferencias, ¿no creen?

Ya me ha entrado una depresión... me iré a llorar a alguna esquina. :cool:

Casimiro Notevi 12-02-2012 14:37:23

Si tu código está muy bien, y lo has hecho rapidísimo, está muy bien, la verdad.

El código ese en lenguaje c es como lo hubiese hecho yo, seguramente, pero queda demasiado "ofuscado" para uso normal, depende de para qué puesto de trabajo optara, habría hecho casi lo mismo que has escrito tú, en delphi.

Delphius 12-02-2012 18:19:35

Cita:

Empezado por Casimiro Notevi (Mensaje 424922)
Por ejemplo, está más optimizado para el bucle usar un smallint que un integer, incluso mejor todavía un byte, si fuese posible.

Discrepo totalmente. En realidad esto de las optimizaciones dependerá del lenguaje, del compilador y la arquitectura de la computadora en donde se compila.
En Delphi y a 32 bits, es mucho más efectivo hacer un for sobre un integer que sobre un Byte o un SmallInt.
Internamente el byte como SmallInt trabajan sobre el tipo integer, dejando en cero lo bytes restantes, y cuando se utilizan estos tipos se hacen conversiones indirectas desde y hacia el tipo integer.
El tamaño del integer corresponde justo al tamaño del registro de la CPU y las micro-operaciones para el for se valen de éstos registros... son bien aceleradas.
Utilizar byte o smallint simplemente lo hace más lento ya que debe hacer estas conversiones que le malgastan unos ciclos, y por apenas un byte no vale la pena intentar ahorrarse memoria en tipos numéricos menores... ¡porque no te la ahorras!

Cita:

Empezado por Casimiro Notevi (Mensaje 424922)
No son necesarios decimales, así que se pueden usar tipos de datos acorde a eso.

Si alguien pretendiera utilizar un tipo de dato real, sea de punto fijo o flotante, para este ejercicio es un semerendo tonto; por no decir algo más pesado :D Si no hay siquiera alguna pizca de referencia o indicio de que se requiera de números reales, ¿quien se pondría a agregar variables de estos tipos?
Discúlpame por mi falta de tacto, pero creo que hasta un recién iniciado se da cuenta.... hay que ser muy bestia. :D

Saludos,

Casimiro Notevi 12-02-2012 18:28:59

Era sólo un ejemplo por darlo a entender :)

Creo que necesitas otras vacaciones, amigo Delphius :D



p.d.: aunque está bien la aclaración, por supuesto.

Delphius 12-02-2012 19:09:43

Cita:

Empezado por Casimiro Notevi (Mensaje 424943)
Era sólo un ejemplo por darlo a entender :)

Creo que necesitas otras vacaciones, amigo Delphius :D

p.d.: aunque está bien la aclaración, por supuesto.

¿Tu crees? Y ya decía yo en FB si era válido tomarse unas vacaciones para descansar de las vacaciones :D :p Esto me pasa por llevarme parte del trabajo conmigo... y a NewDelphius. Ese cuate me está llevando por mal camino :D

Bueno, es que el ejercicio es muy elemental... mientras no te avientes retos como los de Al y de Roman, estamos bien. :rolleyes: :D

Saludos,

beginner01 12-02-2012 19:29:26

Hola.

Aún siendo de el grupo de los "bestias" sé que algo nuevo aprendí. ;);)

Casimiro Notevi 12-02-2012 19:55:03

Cita:

Empezado por beginner01 (Mensaje 424948)
Hola. Aún siendo de el grupo de los "bestias" sé que algo nuevo aprendí. ;);)

Pues sí, siempre se aprende algo nuevo :)

Julián 13-02-2012 02:26:49

con Javascript
Código:

<script>
for(i=1;i<101;i++){document.write(((i%3==0&&i%5==0)?'FizzBuzz':(i%3==0)?'Fizz':(i%5==0)?'Buzz':i)+'<br />');}
</script>


Julián 13-02-2012 02:48:22

Versión 2:
Código:

<script>
for(i=1;i<101;i++){x='';if(!(i%3))x+='Fizz';if(!(i%5))x+='Buzz';document.write(((x)?x:i)+'<br />');}
</script>


Ñuño Martínez 13-02-2012 10:59:03

Un lenguaje que inventé hace un tiempo y que, por fin, le he encontrado una aplicación (si aceptan un presupuesto que he hecho, claro ;) ):

Código:

  0
  @
    1 +
    DUP 3 %
    0 = IF
      "fizz" CALL:WRITE
    FI
    DUP 5 %
    0 = IF
      "buzz" CALL:WRITE
    FI
    DUP DUP 3 % SWAP 5 %
    0 = SWAP 0 = & IF
      DUP CALL:WRITE
    FI
    "" CALL:WRITELN
    DUP 100 < IF
      RET
    FI

"Ahora vas y lo cascas" :cool::D

Explicación:

Este lenguaje es, en realidad, el "Ensamblador" de una máquina virtual basada en pilas, al estilo FORTH. DUP duplica el elemento en la cima de la pila, mientras que SWAP intercambia los dos valores de la cima. Los operadores extraen uno o dos elementos de la pila, lo operan y lo devuelven a la pila; y son los normales (+, -, >, <...) siendo "%" el cálculo del resto en una división entera. "CALL" llama a una rutina (WRITE y WRITELN en este caso). @ apila en la pila de código (separada de la pila de datos, como en FORTH) la dirección de dicha arroba, mientras que RET desapila la cima de la pila de código en el registro de ejecución.

Vamos, muy sencillo.:rolleyes:

El código puede optimizarse duplicando e intercambiando los resultados de las operaciones (que en principio es más rápido que calcular el módulo y hacer comparaciones), pero entonces ya te lías...

Casimiro Notevi 13-02-2012 11:20:26

Cita:

Empezado por Ñuño Martínez (Mensaje 425000)
Vamos, muy sencillo.:rolleyes:

Sí, ya se ve que es muy sencillo :o :D

Ñuño Martínez 13-02-2012 11:24:03

Ya dije en otro sitio lo de que sencillo no significa fácil y tal... De todas formas, a los que les guste el Ensamblador deberían entenderlo puesto que, aunque casi todos los microprocesadores están basados en registros, el manejo de pilas está al orden del día. Es más, casi todas las instrucciones de mi lenguaje tienen correspondencia directa con instrucciones ensamblador de casi cualquier micro, aunque eso de usar dos pilas separadas, una para datos y otra para direcciones de retorno, puede dar algún que otro dolor de cabeza.

Casimiro Notevi 13-02-2012 11:36:41

No, si no es que me parezca complicado, es sólo que no me veo programando una gestión de stock de almacenes con ese lenguaje :)

Julián 13-02-2012 17:52:04

Y digo yo.. ¿pa que lo haces a pilas puediendolo hacer a corriente? XDD

newtron 13-02-2012 18:56:44

Cita:

Empezado por Ñuño Martínez (Mensaje 425004)
... el manejo de pilas está al orden del día...

Oyes, pues yo pensaba que estabas hablando de pilas de lavar. :D

Ñuño Martínez 13-02-2012 19:23:44

Que vivan las palabras polisémicas. :D


La franja horaria es GMT +2. Ahora son las 06:36:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi