Para el que este aburrido y tenga ganas de pensar 2

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

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