- or download this
gives(ovid,money,irs).
gives(ovid,book,grep).
gives(ovid,book,kudra).
- or download this
?- gives(ovid,book,kudra).
- or download this
?- gives(ovid,book,irs).
- or download this
?- give(ovid,book,Who).
Who=grep
Who=kudra
- or download this
{
'gives' => {
...
}
}
};
- or download this
my @recipients = keys %{$facts{gives}{Ovid}{book}};
- or download this
if ( exists $facts{gives}{Ovid}{book}{merlyn} ) { ... }
- or download this
?- gives(Who,book,_);
Who=ovid
Who=kudra
yes
- or download this
my @givers;
foreach my $person ( keys %{$facts{gives}} ) {
push @givers => $person if exists $facts{ gives }{ $person }{ book
+ };
}
- or download this
gives(ovid,book(learning_perl), merlyn).
- or download this
?- gives(ovid, book(Title), merlyn).
Title=learning_perl
- or download this
gives(kudra,book(learning_perl),merlyn).
- or download this
location( kitchen_drawer, [ knife, fork, kitten ] ).
- or download this
positive(Number) :-
Number > 0.