El problema FizzBuzz

[Casimiro Notevi]

Propongo realizar este problema:

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]

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]]

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?

[Casimiro Notevi]

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:

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:

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]]

Empezado por Casimiro Notevi

[/code]Programador 2:

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.

[Casimiro Notevi]

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]]

Empezado por Casimiro Notevi

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!

Empezado por Casimiro Notevi

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 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.

Saludos,

[Casimiro Notevi]

Era sólo un ejemplo por darlo a entender

Creo que necesitas otras vacaciones, amigo Delphius



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

[[Delphius]]

Empezado por Casimiro Notevi

Era sólo un ejemplo por darlo a entender

Creo que necesitas otras vacaciones, amigo Delphius

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 Esto me pasa por llevarme parte del trabajo conmigo... y a NewDelphius. Ese cuate me está llevando por mal camino

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

Saludos,

[beginner01]

Hola.

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

[Casimiro Notevi]

Empezado por beginner01

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

Pues sí, siempre se aprende algo nuevo

[Julián]

con Javascript

<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]

Versión 2:

<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]

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 ):

  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"

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.

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]

Empezado por Ñuño Martínez

Vamos, muy sencillo.

Sí, ya se ve que es muy sencillo

[Ñuño Martínez]

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]

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]

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

[[newtron]]

Empezado por Ñuño Martínez

... el manejo de pilas está al orden del día...

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

[Ñuño Martínez]

Que vivan las palabras polisémicas.