El problema FizzBuzz

[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 Noteví]

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

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

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.