logic-data - ; The Itsey Bitsey Machine Corporation's...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
;;; The Itsey Bitsey Machine Corporation's personnel data base ;;; aa adds a rule or assertion to the database (define (aa query) (add-rule-or-assertion! (add-assertion-body (query-syntax-process (list 'assert! query))))) (aa '(address (Bitdiddle Ben) (Slumerville (Ridge Road) 10))) (aa '(job (Bitdiddle Ben) (computer wizard))) (aa '(salary (Bitdiddle Ben) 40000)) (aa '(address (Hacker Alyssa P) (Cambridge (Mass Ave) 78))) (aa '(job (Hacker Alyssa P) (computer programmer))) (aa '(salary (Hacker Alyssa P) 35000)) (aa '(supervisor (Hacker Alyssa P) (Bitdiddle Ben))) (aa '(address (Fect Cy D) (Cambridge (Ames Street) 3))) (aa '(job (Fect Cy D) (computer programmer))) (aa '(salary (Fect Cy D) 32000)) (aa '(supervisor (Fect Cy D) (Bitdiddle Ben))) (aa '(address (Tweakit Lem E) (Boston (Bay State Road) 22))) (aa '(job (Tweakit Lem E) (computer technician))) (aa '(salary (Tweakit Lem E) 15000)) (aa '(supervisor (Tweakit Lem E) (Bitdiddle Ben))) (aa '(address (Reasoner Louis) (Slumerville (Pine Tree Road) 80)))
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

logic-data - ; The Itsey Bitsey Machine Corporation's...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online