Para el que este aburrido y tenga ganas de pensar 2

[Ñuño Martínez]

Estoy empezando a odiarte, macho...

[[marceloalegre]]

jajjajajajajaja Sabia que Domingo la tenia que contestar! porque el fue el que me contesto lo del tipo superlargo!!

Les dije!, le gano de mano a los demas! jajAj! felicitaciones de nuevo!

A ver si alguno se anima y colabora con un:
"Para el que este aburrido y tenga ganas de pensar 3"

[[marceloalegre]]

Por cierto, lo que queria sacar a relucir con esto, es que pese a que tengo puesta la camiseta de Delphi (obviamente), la funcion en java es mucho mas simple:

import java.math.*;
public class Fibo {

 public static void main(String args[])
 {
   BigDecimal last1 = new BigDecimal("0");
   BigDecimal last2 = new BigDecimal("1");
   BigDecimal aux;
   for (; ;) {
     aux = last1.add(last2);
     last1 = last2;
     last2 = aux;
     if (aux.toString().length() == 21) return;      System.out.println(aux);
   }
 
 }
}

Borland, si me escuchas, poné tipos de datos mas grandes !!! que nunca se saben cuando nos pueden ser utiles...
O contraten a Domingo Seoane para que les de un poco de asesoramiento

Saludos.

[[Bicho]]

No es justo, entre éste hombre que no da tiempo a que los resolvamos nosotros y yo que estoy de vacaciones y con un poco de resaca de las fiestas del pueblo, es que no llego a nada
A ver si dejais un poco pa' los demás "agoniosos"

Saludos

[roman]

Empezado por kanvictor

Por cierto, lo que queria sacar a relucir con esto, es que pese a que tengo puesta la camiseta de Delphi (obviamente), la funcion en java es mucho mas simple:

Hombre, no es por nada pero es que este problema es trivial. Lo que quiero decir es que la dificultad real del problema consiste justamente en que no todos los lenguajes tendrán enteros tan largos (o aunque los tengan, pues Delphi cuenta con los BCD), de manera que el problema está en ingeniárselas sin ellos, tal y como hizo seoane.

// Saludos

[[seoane]]

Empezado por roman

Hombre, no es por nada pero es que este problema es trivial. Lo que quiero decir es que la dificultad real del problema consiste justamente en que no todos los lenguajes tendrán enteros tan largos (o aunque los tengan, pues Delphi cuenta con los BCD), de manera que el problema está en ingeniárselas sin ellos, tal y como hizo seoane.

// Saludos

No conocía los BCD, me siento como si me pusiera a reinventar la rueda. Con lo contento que estaba yo con mis superlargos, ya les tenia la multiplicación y la resta

[roman]

Pero es que cuando yo vi tu respuesta estuve a punto de mencionar algo del estilo de ¿por qué mejor no usan BCDs en lugar de reinventar la rueda?, pero, en un segundo pensamiento me di cuenta que justamente así no tenía ningún chiste el problema y por ello lo interesante fue precisamente tus enteros superlargos.

// Saludos

[Ñuño Martínez]

Pues yo tampoco sabía que Delphi incluye una implementación de BCD. Aunque, ahora que lo pienso, todos nos estamos refiriendo a Binario Codificado en Decimal, ¿verdad? Sólo para estar seguro.

[[marceloalegre]]

Empezado por roman

Hombre, no es por nada pero es que este problema es trivial. Lo que quiero decir es que la dificultad real del problema consiste justamente en que no todos los lenguajes tendrán enteros tan largos (o aunque los tengan, pues Delphi cuenta con los BCD), de manera que el problema está en ingeniárselas sin ellos, tal y como hizo seoane.

Hice el planteo del problema, porque estaba seguro que no habia un tipo de datos de delphi para hacerlo de manera simple, ahora que me cuentas del tipo BCD implementado en delphi, me entero de una novedad , igual a mi me parecio excelente la reinvension de rueda del amigo Seoane.

[[marceloalegre]]

Me quede pensando en el uso del BCD y implemente la funcion en delphi en base a la que tenia en java... mmm no anda... a ver si alguien me corrige en mi desconocimiento del uso de los TBCD...

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  last1,last2, aux:TBcd;
begin
  Last1:=StrToBcd('0');
  Last2:=StrToBcd('1');
  Aux  :=StrToBcd('0');
  while true do //jeje no queda agradable pero corto con el exit.. costumbre!
  begin
    BcdAdd(Last1,Last2,Aux); //sumo el f(x-1)+f(x-2) y lo meto en aux...
    Last1:= last2;
    Last2:=Aux;
    if Length(BcdToStr(Aux))= 21 then
    begin
      ShowMessage(BcdToStr(Aux));
      Exit;
    end;
  end;
end;

el ciclo no corta nunca, porque empieza haciendo bien las cuentas aparentemente y despues mm no se....

Saludos!

[[seoane]]

Si es que no nos fijamos

Código Delphi [-]
var
  last1,last2, aux:TBcd;
begin
  Last1:=StrToBcd('0');
  Last2:=StrToBcd('1');
  Aux  :=StrToBcd('0');
  while true do //jeje no queda agradable pero corto con el exit.. costumbre!
  begin
    BcdAdd(Last1,Last2,Aux); //sumo el f(x-1)+f(x-2) y lo meto en aux...
    Last1:= last2;
    Last2:=Aux;
    if Length(BcdToStr(Aux))= 21 then
    begin
      ShowMessage(BcdToStr(Last1));  // <--- Fijate bien
      Exit;
    end;
  end;
end;