Generalizing Fibonacci sequence with SICStus Prolog

后端 未结 6 2058
佛祖请我去吃肉
佛祖请我去吃肉 2021-01-19 08:00

I\'m trying to find a solution for a query on a generalized Fibonacci sequence (GFS). The query is: are there any GFS that have 885 as their 12th number? The initial 2 numbe

6条回答
  •  青春惊慌失措
    2021-01-19 08:52

    Under SWI-Prolog:

    :- use_module(library(clpfd)).
    
    fib(A,B,N,X):-
        N #> 0,
        N0 #= N-1,
        C #= A+B,
        fib(B,C,N0,X).
    fib(A,B,0,A).
    
    task(A,B):-
        A in 1..10,
        B in 1..10,
        fib(A,B,11,885).
    

提交回复
热议问题