5 lines
166 B
Text
5 lines
166 B
Text
.decl Fib(i:number, x:number)
|
|
Fib(0, 0).
|
|
Fib(1, 1).
|
|
Fib(i+2,x+y) :- Fib(i+1, x), Fib(i, y), i+2<=40, i+2>=2.
|
|
Fib(i-2,y-x) :- Fib(i-1, x), Fib(i, y), i-2>=-40, i-2<0.
|