/prog/ - FIBONACCI FIB PRINT

Name: Anonymous 2009-12-04 20:18

FIBONACCI FIB PRRINT

Write a program that prints out a list of fibonacci numbers in a language of your choice.



/*        I'm using C, you LISPing cretins.         /

/  Remember to use your hot, stripping [coed] tags */



#include <stdio.h>



fibonacci (int fibs)

{

    int count, big = 0, small = 1;

    for (count = 0; count <= fibs; count++)

    {

        printf("\n#%2d - %10d", count, big);

        big = big + small;

        small = big - small;

    }

}



main()

{

    int x;

    printf("Enter the highest fib that you want to see: ");

    scanf("%i", &x);

    fibonacci (x);

}

Your move.

Name: Anonymous 2009-12-04 22:36

LOL LISTS IN C LOL



import Data.List(foldl')

import Data.Bits(testBit,bitSize)

 

fib :: Int -> Integer

fib n = snd . foldl' fib' (1, 0) $ dropWhile not [testBit n k | k <- let s = bitSize n in [s-1,s-2..0]]



fib' :: (Num t) => (t,t) -> Bool -> (t, t)

fib' (f, g) p

 | p = (f*(f+2*g),f*f+g*g)

 | True = (f*f+g*g, g*(2*f-g))

FIBONACCI FIB PRINT

1 Name: Anonymous 2009-12-04 20:18

17 Name: Anonymous 2009-12-04 22:36

Name: Anonymous 2009-12-04 20:18

Name: Anonymous 2009-12-04 22:36