fibonacci.pas

来自「Pasc+Java 这是一个国外的随机自动机*(RAM)一个学习用的程序」· PAS 代码 · 共 8 行

function fib(n);
    begin    
        fi[0] := 1;
        fi[1] := 1;
        for i := 2 to n do fi[i] := (fi[(i - 1)] + fi[(i - 2)]);
        fib := fi[n]
    end