in reply to AI::Perlog Unification help
I forgot to mention the database format :
(You can understand it from the source, but I'll take a low profile as I provided no doc AT ALL :-)
*******database.txt**********
add_fact(theory=> qw(foo bar baz));
add_fact(theory=> qw(foo tac toe));
add_fact(theory=> qw(tic tac toe));
add_fact(theory=> qw(tac lac toe));
*******database.txt**********
Now a little example on how to use it :
*********try.pl**********
I've updated the display function's code in my previous post to handle 'false' answers.
"Only Bad Coders Code Badly In Perl" (OBC2BIP)
(You can understand it from the source, but I'll take a low profile as I provided no doc AT ALL :-)
*******database.txt**********
add_fact(theory=> qw(foo bar baz));
add_fact(theory=> qw(foo tac toe));
add_fact(theory=> qw(tic tac toe));
add_fact(theory=> qw(tac lac toe));
*******database.txt**********
Now a little example on how to use it :
*********try.pl**********
#!/usr/bin/perl -w use strict; #use Devel::StealthDebug; use lib '.'; use Perlog; use Perlog2; #my $pg = AI::Perlog->new; my $pg2 = AI::Perlog2->new; #$pg->load_from_file('database.txt'); $pg2->load_from_file('database.txt'); # # Perlog2 should definitly export display ;-) # AI::Perlog2::display($pg2->theory(qw/$x tac $y/)); print "*********\n"; AI::Perlog2::display($pg2->theory(qw/? $x tac $y/)); print "*********\n"; AI::Perlog2::display($pg2->theory(qw/tic tac toe/)); print "*********\n"; AI::Perlog2::display($pg2->theory(qw/tIc tac toe/)); *********try.pl**********<br>
I've updated the display function's code in my previous post to handle 'false' answers.
"Only Bad Coders Code Badly In Perl" (OBC2BIP)
In Section
Seekers of Perl Wisdom