Para el que este aburrido y tenga ganas de pensar 2

[[marceloalegre]]

Buenas, les paso otro para seguir con esta serie de divertimentos para ejercitar un poquito la mente , este me salio facil no le veo problema pero bueno, se los pongo como salio en el diario. Eso sí, lo podemos complicar mas!, si alguien se anima a hacerlo en delphi ( ), yo despues les puedo pasar los fuentes pero en java de la rta, porque tuve un problemilla al querer hacerlo con nuestro querido lenguaje...

Problema:

"Sea X el maximo nro de 20 digitos de la sucesion de Fibonacci"

enviar mail a rh@x.com

Saludos!

[Ñuño Martínez]

Empezado por kanvictor

(...) porque tuve un problemilla al querer hacerlo con nuestro querido lenguaje...

Problema:

"Sea X el maximo nro de 20 digitos de la sucesion de Fibonacci"

Normal que tuvieras problemas. ¿Hay algún tipo o clase que maneje números de 20 dígitos? A mi se me ocurre una solución usando Delphi, un tanto bruta pero bueno: BCD. A ver quién lo pilla. (Seoane, intenta reprimirte a ver si lo conseguimos alguno de nosotros, anda ).

[[marceloalegre]]

Efectivamente Ñuño ese es el tema no lo dije porque era obvio a la vista que estamos con un tratando con tipo de datos que no tenemos para esta cuestion. Eso es algo que le falta a nuestra querida herramienta no? ...

Y si, seguro que Seoane va a participar en esta tambien , asi que el que le tenga ganas, que se apure!!!

[[seoane]]

Podemos usar el tipo TSuperlargo del que ya te hable en el otro hilo.

Código Delphi [-]
type
  TSuperLargo = array[0..30] of Byte;

function AddSuper(var a,b: TSuperLargo; Acarreo: Integer): TSuperLargo; overload;
var
  i,j: integer;
begin
  for i := 0 to 30 do
  begin
    j:= (Integer(a[i]) + Integer(b[i])) + Acarreo;
    Result[i]:= j mod 10;
    Acarreo:= j div 10;
  end;
end;

function AddSuper(a,b: TSuperLargo): TSuperLargo; overload;
begin
  Result:= AddSuper(a,b,0);
end;

function SuperToStr(a: TSuperLargo): string;
var
  i: integer;
  flag: Boolean;
begin
  Result:= '';
  flag:= FALSE;
  for i := 30 downto 0 do
  begin
    if flag then
      Result:= Result + IntToStr(a[i])
    else if a[i] > 0 then
    begin
      flag:= TRUE;
      Result:= Result + IntToStr(a[i]);
    end;
  end;
end;

// El algoritmo del fibonacci es un pelin cutre, lo se
function fibonacci(n: integer): string;
var
  i,j,k: TSuperLargo;
  Str: string;
begin
  FillChar(i,Sizeof(i),0);
  FillChar(j,Sizeof(j),0);
  FillChar(k,Sizeof(k),0);
  i[0]:= 1;
  j[0]:= 1;
  Result:= '';
  while Result = '' do
  begin
    k:= j;
    j:= AddSuper(i,j);
    i:= k;
    Str:= SuperToStr(j);
    if Length(Str)>n then
      Result:= SuperToStr(i);
  end;
end;


// Por ejemplo
ShowMessage(fibonacci(20));

La respuesta es:
x = 83621143489848422977

[Ñ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"