PATHFINDER is a 20,000 line program coded in Common Lisp.
[link = huh? ]
You type at it in English. I wonder if we can make an automated GM?
.
| 2 people marked this as a favorite. |
It's coded in Lisp? Does that mean it's actually called Passfinder?
It's coded in Lisp? Does that mean it's actually called Passfinder?
(what-p)
| 1 person marked this as a favorite. |
Through a bizarre coincidence, I am Paizo's in-house expert on the Pathfinder AI by Borchardt you mention (by which I mean, I have TAed the MIT course from whose site you found that paper multiple times). Odd, huh?
Through a bizarre coincidence, I am Paizo's in-house expert on the Pathfinder AI by Borchardt you mention (by which I mean, I have TAed the MIT course from whose site you found that paper multiple times). Odd, huh?
I know. And it's not odd. We've been monitoring your movement since you left MIT.
Hey, we can watch you work. [ vid = see Mark the TA ]
You need a haircut.
.
AIs are like ships... they only ever get famous when things go horribly wrong.
Through a bizarre coincidence, I am Paizo's in-house expert on the Pathfinder AI by Borchardt you mention (by which I mean, I have TAed the MIT course from whose site you found that paper multiple times). Odd, huh?I know. And it's not odd. We've been monitoring your movement since you left MIT.
Hey, we can watch you work. [ vid = see Mark the TA ]
You need a haircut.
.
Oh, don't link 'em to Adaboost. That one's math-y (and easier to digest if the viewer already knows identification trees), though at least it isn't support vector machines. Folks, I recommend clicking the videos on the right side of that screen and watching Rules-based Systems, if you feel like learning some AI from my videos, that is.
So, how long before the Pathfinder AI goes all SHODAN on us, Mark?
Too late, SHODAN already assimilated the gninja.
I like >this< video because it features a guy wearing the t-shirt of my favorite band (during the torque demo).
.
gcl
Copy and paste, and do this > (sentence)
(defun sentence () (append (noun-phrase) (verb-phrase)))
(defun noun-phrase () (append (Article) (Noun)))
(defun verb-phrase () (append (Verb) (noun-phrase)))
(defun Article () (one-of '(the a)))
(defun Noun () (one-of '(man ball woman table)))
(defun Verb () (one-of '(hit took saw liked)))
;;; ==============================
(defun one-of (set)
"Pick one element of set, and make a list of it."
(list (random-elt set)))
(defun random-elt (choices)
"Choose an element from a list at random."
(elt choices (random (length choices))))
;;; ==============================
(defun Adj* ()
(if (= (random 2) 0)
nil
(append (Adj) (Adj*))))
(defun PP* ()
(if (random-elt '(t nil))
(append (PP) (PP*))
nil))
;; (defun noun-phrase () (append (Article) (Adj*) (Noun) (PP*)))
(defun PP () (append (Prep) (noun-phrase)))
(defun Adj () (one-of '(big little blue green adiabatic)))
(defun Prep () (one-of '(to in by with on)))
;;; ==============================
(defparameter *simple-grammar*
'((sentence -> (noun-phrase verb-phrase))
(noun-phrase -> (Article Noun))
(verb-phrase -> (Verb noun-phrase))
(Article -> the a)
(Noun -> man ball woman table)
(Verb -> hit took saw liked))
"A grammar for a trivial subset of English.")
(defvar *grammar* *simple-grammar*
"The grammar used by generate. Initially, this is
*simple-grammar*, but we can switch to other grammers.")
;;; ==============================
(defun rule-lhs (rule)
"The left hand side of a rule."
(first rule))
(defun rule-rhs (rule)
"The right hand side of a rule."
(rest (rest rule)))
(defun rewrites (category)
"Return a list of the possible rewrites for this category."
(rule-rhs (assoc category *grammar*)))
;;; ==============================
(defun generate (phrase)
"Generate a random sentence or phrase"
(cond ((listp phrase)
(mappend #'generate phrase))
((rewrites phrase)
(generate (random-elt (rewrites phrase))))
(t (list phrase))))
;;; ==============================
(defparameter *bigger-grammar*
'((sentence -> (noun-phrase verb-phrase))
(noun-phrase -> (Article Adj* Noun PP*) (Name) (Pronoun))
(verb-phrase -> (Verb noun-phrase PP*))
(PP* -> () (PP PP*))
(Adj* -> () (Adj Adj*))
(PP -> (Prep noun-phrase))
(Prep -> to in by with on)
(Adj -> big little blue green adiabatic)
(Article -> the a)
(Name -> Pat Kim Lee Terry Robin)
(Noun -> man ball woman table)
(Verb -> hit took saw liked)
(Pronoun -> he she it these those that)))
;; (setf *grammar* *bigger-grammar*)
;;; ==============================
(defun generate-tree (phrase)
"Generate a random sentence or phrase,
with a complete parse tree."
(cond ((listp phrase)
(mapcar #'generate-tree phrase))
((rewrites phrase)
(cons phrase
(generate-tree (random-elt (rewrites phrase)))))
(t (list phrase))))
;;; ==============================
(defun generate-all (phrase)
"Generate a list of all possible expansions of this phrase."
(cond ((null phrase) (list nil))
((listp phrase)
(combine-all (generate-all (first phrase))
(generate-all (rest phrase))))
((rewrites phrase)
(mappend #'generate-all (rewrites phrase)))
(t (list (list phrase)))))
(defun combine-all (xlist ylist)
"Return a list of lists formed by appending a y to an x.
E.g., (combine-all '((a) (b)) '((1) (2)))
-> ((A 1) (B 1) (A 2) (B 2))."
(mappend #'(lambda (y)
(mapcar #'(lambda (x) (append x y)) xlist))
ylist))