ikarus/benchmarks.larceny/src/fibfp.c

32 lines
441 B
C
Raw Normal View History

/* FIBFP -- Computes fib(35) using floating point */
#include <stdio.h>
#define FLOAT double
static FLOAT fib (FLOAT n)
{
if (n < 2.)
return n;
else
return fib (n-1.) + fib (n-2.);
}
int main (int argc, char *argv[])
{
int i;
FLOAT result;
int n = 35;
if (argc > 1)
n = atoi (argv[1]);
for (i=0; i<2; i++)
result = fib (n);
if (result != 9227465.)
printf ("*** wrong result ***\n");
return 0;
}