Programming Language ADP

フィボナッチ数を求めるサンプル

コード例(fib.p)

+fib(0,0),!;
+fib(1,1),!;
+fib($x,$y),fib($x - 1, $f1),fib($x - 2, $f2), $y == $f1 + $f2, !;
,fib(28).printn;

実行例

D:\>adp fib.p
317811