================================================================
Logtalk - Open source object-oriented logic programming language
Release 2.30.7
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
% load the example:
| ?- logtalk_load(birthdays(loader)).
...
% create two new agents, Paul and Nathalie:
| ?- agent::(new(paul, 40, male), new(nathalie, 32, female)).
Yes
% make them friends:
| ?- paul::new_friend(nathalie).
% it's birthday for Nathalie:
| ?- nathalie::birthday.
Happy birthday from paul!
Thanks! Here, have a slice of cake, paul.
Thanks for the cake nathalie!
Say goodbye to your 32's!
% ask Nathalie her age:
| ?- nathalie::age(Age).
Age = 33
% a year goes by...
Say goodbye to your 33's!
