Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

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. :)

jarich

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.


Comment on Re: Who's a thief?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://179602]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2014-11-29 10:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (204 votes), past polls