This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/examples/tabling/SCRIPT.txt

33 lines
663 B
Plaintext
Raw Normal View History

================================================================
Logtalk - Open source object-oriented logic programming language
Release 2.30.7
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
================================================================
% start by loading the example:
| ?- logtalk_load(tabling(loader)).
...
% use tabling to cope with a left-recursive path finding predicate
% (the order of the solutions may depend on the tabling strategy):
| ?- paths::path(1, Y).
Y = 2 ? ;
Y = 4 ? ;
Y = 3 ? ;
Y = 5 ?
yes
% use tabling to avoid repeated calculation of Fibonacci numbers:
| ?- fibonacci::fib(30, F).
F = 1346269
yes