Logic - logical programming and multimethod dispatch
use Logic::Easy; my ($X, $Y); # UNIFICATION Logic-> is(var $X, 2) -> bind($X); print $X; # 2 Logic-> is(var $X, [1, var $Y]) -> is([1, 2], $X) -> bind($X, $Y); print "@$X, $Y"; # 1 2, 2 # CONS Logic-> is([1, 2, 3], cons(var $X, var $Y)) -> bind($X, $Y); print "$X, @$Y"; # 1, 2 3 # ANY Logic-> is(var $X, any(1,2,3)) -> is($X, 4) -> bind($X); # fail! # MULTIMETHODS no warnings 'redefine'; sub process : Multi(process) { SIG []; print "No parameters!"; } sub process : Multi(process) { SIG [$x] where { UNIVERSAL::isa($x, 'Cat') }; print "Got a cat!"; } sub process : Multi(process) { SIG cons($x, $xs); print "Got $x"; process($xs); } # RULES sub man { Logic-> any( Logic-> is([@_], 'adam'), Logic-> is([@_], 'peter'), ); } sub parent { Logic-> any( Logic-> is([@_], ['adam', 'peter']), Logic-> is([@_], ['eve', 'peter']), ); } sub father { my ($F, $C) = @_; Logic-> rule(sub { man($F) }) -> rule(sub { parent($F, $C) }); }
The Logic modules implement a logic programming framework in Perl. It does all the magic stuff that prolog does, it just doesn't have as big a standard library. But it has a bigger standard library, because it has CPAN. On top of being able to do logic programming without stepping outside the safe (?) world of Perl syntax, you can do pattern-matching multimethod dispatch with this module.
To get started in 'Prolog with Perl' right away, use the Logic::Easy module. This exports just a few helpful routines, and uses chained method calls for the rest of the language.
Logic::Easy
The order of mention here has been optimized for the first-time reader, minimizing backrefrences. If you need a general reference, well, that's why computers have search functions.
var
Decalares a logic variable. Perl 5 introduces a variable the statement after it is declared, so you generally cannot use this function inline unless (a) you only mention the variable once in that statement, or (b) you don't follow it by my.
my
var my $X; Logic->is($X, 42)->bind($X); # see below for is and bind print $X; # 42
vars
Declares several logic variables at once. See the comments for var.
vars my ($X, $Y); Logic->is($X, $Y)->is($Y, 42)->bind($X, $Y); print "$X, $Y"; # 42, 42
bind
Forces evaluation of the whole chain, while mutating the given variables (which must be lvalues) into regular perl values. The function itself must be the last thing in a chain, since it does not return a chainable value.
If called in void context, the function dies if the chain fails. If called in any other context, it returns undef (or the empty list if in list context) upon failure and 1 upon success. It is fairly common to see a chain start with ! in order to say "I don't care whether this fails", by imposing boolean context. If the function fails, none of the variables in the list is changed.
1
!
If the variables cannot be resolved, they are resolved as much as possible in terms of other variables, which will be references of class Logic::Variable.
Logic::Variable
var my $X; Logic->fail->bind($X); # die !Logic->fail->bind($X); # do nothing Logic->is($X, 42)->bind($X); # $X is now 42 var $X; # make $X into a variable again Logic->is($X, [$Y])->bind($X); # $X is now [Logic::Variable=HASH(...)]
all
Requires that all of its arguments (which are also Logic chains) succeed, and evaluates them in order. This function is generally redundant and useless.
Logic->id->fail; # this can also be written Logic->all(Logic->id, Logic->fail); # like this
any
Evaluates its arguments (which are Logic chains) until one of them succeeds.
Logic->any( Logic->is(20, $X), Logic->is(20, $Y), )->bind; # succeeds if $X is 20 or $Y is 20
assert
Asserts that a condition given by code is true. Optionally takes a list of variables to bind for the duration of the block before the block argument.
Logic->is($X, 20)->assert($X, sub { $X < 10 })->bind; # fails
You have to specify the variables to bind, otherwise you'll be comparing against references. Variables that are still in terms of other, unresolvable variables cause the assertion to automatically fail.
id
Always succeeds.
fail
Always fails.
block
Always succeeds. Differs from id in that it even succeeds on backtracking. Note that a chain with this as its first element will never fail, possibly causing an infinite loop. Use with caution. Generally used with assign, and with user input.
assign
rule
Executes a block of code and interprets it as another Logic chain to be nested in the current chain. This is how you perform recursion.
sub ancestor { my ($A, $B) = @_; var my $X; Logic->any( Logic->rule(sub { parent($A, $B) }), Logic->rule(sub { parent($A, $X) })->rule(sub { ancestor($X, $B) }), ); }
is
Data structure unification: succeeds if its arguments are equal, binding variables along the way trying to make the structures equal.
vars my ($X, $Y); Logic->is([$X, 2, 3], [1, 2, $Y])->bind($X, $Y); print "$X, $Y"; # 1, 3
Compares stringwise for two non-references. If the arguments are arrays, recursively unifies them elementwise. If they are other references, then delegates the decision to a unify method if one exists on either argument. If neither argument has a unify method, then compares them numerically (effectively testing whether they are exactly the same reference, unless one of them has the == operator overloaded). See Logic::Data::Cons for an example of a unify method.
unify
Logic::Data::Cons
Executes some code and unifies the given variable(s) (given before the code) with the return value(s) of the block. If the block returns too few values for the number of variables, unifies the remaining ones with undef. If the block returns too many values, it ignores them.
undef
var my $X; Logic->block ->assert(sub { print "Enter a number less than 10: " }) ->assign($X, sub { scalar <> }), ->assert($X, sub { $X < 10 }) ->bind($X); print "You entered $X";
for
Unifies the given variable with each of the given values.
var my $X; !Logic->for($X, 1..10)->assert($X, sub { print $X })->fail->bind; # prints 12345678910
cons
Not a chained method, but an exported sub. Creates a cons object, which represents the first element concatenated on the front of the second element, which is an array.
vars my ($X, $Y); Logic->is(cons($X, $Y), [1,2,3,4,5])->bind($X, $Y); print "$X | @$Y"; # 1 | 2 3 4 5
Now that you're familiar with these basic predicates, you can forget about them. The multimethod functionality of Logic::Easy defines some syntactic sugar around all of this
Every variant should be declared with the :Multi(name) attribute, like:
sub foo : Multi(foo) { # variant 1 } sub foo : Multi(foo) { # variant 2 }
The actual subs can be named differently, but I'd recommend against it. The names given to Multi are global, so you can define methods on your objects in their own packages as multis, and they will work correctly.
How do you specify the signatures of these multimethods? On the next line, in exactly one line, using the SIG syntax. Yes, it's implemented with a source filter. Don't sweat though, it's a very safe, non-intrusive one.
SIG
SIG takes a data structure of variables (which are declared var for you), usually an anonymous array that corresponds to [@_]. [@_] is unified against that list, and if it succeeds, then your method is run. For example:
[@_]
sub foo : Multi(foo) { SIG [$x, [$y]]; # only takes a single-element array as its second argument # ... }
SIG takes an optional where clause:
where
sub pow : Multi(pow) { SIG [$x, $y] where { $y == 2 }; $x * $x; } sub pow : Multi(pow) { SIG [$x, $y]; $x ** $y; }
The methods are tried in order of definition. The SIG argument doesn't have to be an anonymous array though; it just has to represent one:
sub first : Multi(first) { SIG cons($x, $y); $x; }
If you need more mad chaining power, then you can no longer use the SIG syntactic sugar. Instead, use the sig semantic sugar:
sig
sub first : Multi(first) { vars my ($x, $y); Logic->sig(cons($x, $y))->bind($x); $x; }
You can chain sig in with whatever else you like. Keep in mind that it peeks at your @_ array, so don't abstract too much.
@_
So what if there's something you want that's not in the small library I've given you? Well, you could ask me, but that's not going to be very time- efficient. It turns out, that by conforming to a simple interface, you can write your own predicates. An object that can be used as a predicate must have the following interface:
sub create; # ($self, $stack, $state)
This method, in turn, returns another object that represents a "predicate in progress", which must conform to the following interface:
sub enter; # ($self, $stack, $state) sub backtrack; # ($self, $stack, $state) sub cleanup; # ($self, $stack, $state)
Most commonly, create just returns $self and does nothing else.
create
$self
The enter method is called right after the object was created, and is used for the initial setup for the state. If it returns a true value, then the engine moves on into the next prediciate in the chain. If it returns false, this predicate is aborted and the engine moves to the previous predicate in the chain.
enter
The backtrack method is called (if enter succeeded) after the next predicate in the chain fails, if that ever happens. Again, if it returns a true value, the engine assumes that you changed something and moves forward. If it returns a false value, then your predicate has failed and the engine moves backward.
backtrack
The cleanup method is called whenever your predicate fails. This is rarely used in a garbage-collecting language like Perl, but alas, it does need to be used once in a while. This is mostly for popping scopes in the Logic::Data::Unify predicate.
cleanup
Logic::Data::Unify
The three values that are passed in to all of these methods are as follows:
The current object, of course.
The Logic::Data::Stack object, which you will use for calling sub-predicates. Call the descend method on this to descend into another layer. This should generally be called as the last method in your routine (the stack continues processing after your routine exits, so any cleanup code should go in cleanup or at the beginning of backtrack).
Logic::Data::Stack
descend
sub TwoIsTwo::enter { my ($self, $stack, $state) = @_; $stack->descend( Logic::Data::Unify->new(2, 2), ); }
Short for $stack-state>.
$stack-
In order to "splice" these objects back in your chain, you have to return them from the block given to rule.
It is not fully documented yet. There are other bugs for sure, but I don't know about them. Bug reports very welcome.
Logic currently just returns the string Logic::Easy, so if you want to use the "easy" interface without importing anything, you have to say Logic::Easy->... . What a pain.
Logic
AI::Prolog
Luke Palmer <luke at luqui dot org>
To install Logic, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Logic
CPAN shell
perl -MCPAN -e shell install Logic
For more information on module installation, please visit the detailed CPAN module installation guide.