Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Fibonacci

Name: Anonymous 2007-07-24 19:07 ID:DzKI9Xsx



fibs :: [Int]

fibs = 0 : 1 : [ a + b | (a, b) <- zip fibs (tail fibs)]

Fibonacci

Name: Anonymous 2007-07-25 10:33 ID:Heaven

: fib ( n -- n ) 5 sqrt tuck dup 1 swap - swap 1+ pick ^ swap pick ^ - -rot 2^ * / ;

Newer Posts