Paste: Fibonacci

Author: Rich
Mode: factor
Date: Wed, 12 Nov 2008 00:59:34
Plain Text | 
USE: locals

: fib ( n -- ) [| x! [ 0 ]
                  y! [ 1 ] |
                    [ x y + y x! y! ] times x . ] ;

Annotation: fixed fib

Author: Rich
Mode: factor
Date: Wed, 12 Nov 2008 01:09:20
Plain Text | 
USE: locals

: fib ( n -- m ) 1 + [let | x! [ 0 ]
                            y! [ 1 ] |
                            [ x y + y x! y! ] times x ] ;

Annotation: ok, the other ones sucked

Author: Rich
Mode: factor
Date: Wed, 12 Nov 2008 01:29:03
Plain Text | 
USE: locals

: fib ( n -- m ) [let | x! [ 0 ]
                        y! [ 1 ] |
                        [ x y + y x! y! ] times y ] ;

New Annotation

Summary:
Author:
Mode:
Body: