2009/11/18

PostScript フィボナッチ数

%!PS-Adobe-3.0
% fibonacci

/fib {
    1 dict begin
        /n exch def
        n 0 eq n 1 eq or {
            n
        } {
            n 2 sub fib
            n 1 sub fib
            add
        } ifelse
    end
} def

20 fib % 6765

 

0 件のコメント:

コメントを投稿