Program to generate fibonacci series in GNU Prolog is giving an instantiation error
Solution 1
Instantiation error is caused by the attempt to calculate F
before the values of F1
and F2
have been determined. The simplest solution would to move F is F1+F2
after the recursive calls such that your program becomes
fib(0,0).
fib(1,1).
fib(F,N) :-
N>1,
N1 is N-1,
N2 is N-2,
fib(F1,N1),
fib(F2,N2),
F is F1+F2,
write(F," ,").
(thanks to @mbratch for reminding) write
has only one argument, i.e., write(F," ,").
should be write(F), write(" ,").
You should be however careful with the output. The program above would print out the same value multiple times: e.g., to calculate fib(F,3)
it will invoke fib(F1,2)
and fib(F2,1)
while fib(F1,2)
will invoke fib(F11,1)
and fib(F12,1)
resulting in the following output 1, 1, 2, 1, 3
. Is this really what you need?
Solution 2
You probably need F is F1+F2
after having instantiated F1
and F2
. The following is an exact adaptation of your code to something that works. Now, I'm sure it's exactly what you want (besides, it fails for large values of N, large being impressively small here).
fib(0,0).
fib(1,1).
fib(F,N) :-
N>1,
N1 is N-1,
N2 is N-2,
fib(F1,N1),
fib(F2,N2),
F is F1+F2,
format('~w, ',[F]).
I used format
instead of write
, I'm not sure that write/2
does what you expect.
Solution 3
fab1(1,1).
fab1(2,1).
fab1(N,T):-
N>2,
N1 is N-1,
N2 is N-2,
fab1(N1,T1),
fab1(N2,T2),
T is (T1+T2),
user3341381
Updated on August 30, 2020Comments
-
user3341381 over 3 years
This is my code:-
fib(0,0). fib(1,1). fib(F,N) :- N>1, N1 is N-1, N2 is N-2, F is F1+F2, fib(F1,N1), fib(F2,N2), write(F," ,").
On consulting in GNU Prolog, I am getting:
| ?- consult('C:/GNU-Prolog/bin/fib.pl'). compiling C:/GNU-Prolog/bin/fib.pl for byte code... C:/GNU-Prolog/bin/fib.pl compiled, 3 lines read - 1253 bytes written, 15 ms yes | ?- fib(F,2). uncaught exception: error(instantiation_error,(is)/2)
-
user3341381 about 10 years@Alexander You are right..it is displaying the same value multiple times. Is there any way in which I can display the complete series correctly?
-
user3341381 about 10 years@mbratch Thanks for the valuable information.Guess that was what was causing the error. And to add to the answer, the order of defining the argument matters as well. So the definition "N2 is N-2" should come just before "fib(F2,N2)". Having said that, is it possible to get the series in a single go in GNU Prolog?
-
user3341381 about 10 yearsThanks. But i'm really confused. What does write/2 mean and how is format different from it?
-
lurker about 10 years@user3341381 in Prolog, when referring to a predicate, you give the name and the arity (number of accepted arguments).
write/2
means thewrite
predicate with two arguments.write/1
andwrite/2
are simple write predicates with no control over format.format/2
lets you control the format of what you're writing. See the online manual for details. -
Alexander Serebrenik about 10 years@user3341381 what kind of output do you need?
-
user3341381 about 10 years?-fib(F,5) for e.g. should return F=11235 or even F=01123 or simply display the fibonacci series without assigning values to F like- ?-fib(F,5) 11235 @Alexander
-
user3341381 about 10 years@mbratch I get it..Thanks! :) The online manual is hard to comprehend .