Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Who's a thief?

by jarich (Curate)
on Jul 05, 2002 at 11:01 UTC ( #179602=note: print w/replies, xml ) Need Help??

in reply to Who's a thief?
in thread Artificial Intelligence Programming in Perl

Sorry Ovid, but badguy CAN'T steal the gold. It's not possible with your rule set:
steals(PERP, STUFF) :- .... owns(VICTIM,STUFF), not(knows(PERP,VICTIM)). knows(badguy,merlyn). owns(merlyn,gold).
or in English:
* And the person doesn't know the person who owns the stuff they might steal.

On the other hand the badguy can steal your rubies:

?- steals(badguy,X). X = rubies Yes
and so can merlyn but only if we're allowed to add one more fact:
thief(merlyn). ?- steals(merlyn,X). Yes
I think you might want to meet merlyn really fast, and maybe get him to introduce you to badguy. :)


Update: Oops. Forgot that the PERP had to be a thief in order to be able to steal. Which would have meant that merlyn couldn't have stolen the rubies and I would have appeared to not have known what I was talking about. :) I've fixed this now of course.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://179602]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2018-06-18 04:53 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (108 votes). Check out past polls.