10 lines
173 B
Text
10 lines
173 B
Text
|
go =>fib_lazy(X),
|
||
|
|
A = new_list(15),
|
||
|
|
append(A,_,X),
|
||
|
|
println(A),
|
||
|
|
|
||
|
|
fib_lazy([0,1|X]) :-
|
||
|
|
ffib(0,1,X).
|
||
|
|
ffib(A,B,X) :-
|
||
|
|
freeze(X, (C is A+B, X=[C|Y], ffib(B,C,Y)) ).
|