Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Who's a thief?

by jarich (Curate)
on Jul 05, 2002 at 11:01 UTC ( [id://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.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2024-04-25 10:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found