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/operators/SCRIPT
pmoura 6f6f67b07f Logtalk 2.22.3 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1220 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-12-30 00:35:38 +00:00

52 lines
712 B
Plaintext

=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.22.3
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================
% start by loading the example:
| ?- logtalk_load(operators(loader)).
...
% operators declared inside an object are not visible outside:
| ?- double::(I double J).
Syntax error: Operator expected
% you must use instead:
| ?- double::double(I, J).
I = 1
J = 2 ;
I = 2
J = 4 ;
I = 3
J = 6
Yes
% operators also affect inputing of terms, enabling this example to work:
| ?- triple::triple(I, J).
I = 1
J = 3 ;
I = 2
J = 6 ;
I = 3
J = 9
Yes