adding cs236

2016-04-06 20:46:32 -07:00
parent cf99ec6565
commit 8af25fbb22
56 changed files with 2313 additions and 0 deletions
@@ -0,0 +1,21 @@
+
+
+Schemes:
+    student(Name, ID, Address, Major)
+
+Facts:
+    Student('North', '51', '10 Main', 'CS').
+#   |student('Reagan', '52', '11 Maple', 'CS').|
+    student('Reagan', '52', '11 Maple', 'CS').
+    student('Clinton', '53', '12 Ashton', 'MATH').
+
+Rules:
+    major(Name,Major):-student(Name,ID,Address,Major).
+
+Queries:
+    major('North',Major)?
+    major(Name,'MATH')?
+#|    major(Name,'MATH')?
+#    major(Name,'MATH')? |#
+#   |major(Name,'MATH')?|
+
@@ -0,0 +1,21 @@
+
+
+Schemes:
+    student(Name, ID, Address, Major)
+
+Facts:
+    Student('North', '51', '10 Main', 'CS').
+#   |student('Reagan', '52', '11 Maple', 'CS').|
+    student('Reagan', '52', '11 Maple', 'CS').
+    student('Clinton', '53', '12 Ashton', 'MATH').
+
+Rules:
+    major(Name,Major):-student(Name,ID,Address,Major).
+
+Queries:
+    major('North',Major)?
+    major(Name,'MATH')?
+#|    major(Name,'MATH')?
+#    major(Name,'MATH')? |#
+#   |major(Name,'MATH')?|
+
@@ -0,0 +1,17 @@
+
+
+Schemes:
+  snap(S,N,A,P)
+  HasSameAddress(X,Y)
+
+Facts:
+  snap('12345','C. Brown','12 Apple','555-1234').
+  snap('33333','Snoopy','12 Apple','555-1234').
+
+Rules:
+  HasSameAddress(X,'Y') :- snap(A,X,B,C),snap(D,Y,'B',E).
+
+Queries:
+  HasSameAddress('Snoopy',Who)?
+
+
@@ -0,0 +1,16 @@
+Schemes:
+    snap(S,N,A,P) 
+    NameHasID(N,S)
+ 
+Facts:
+    snap('12345','C. Brown','12 Apple','555-1234').
+    snap('67890','L. Van Pelt','34 Pear','555-5678').
+ 
+Rules:
+    NameHasID(N,S) :- snap(S,N,A,P)?
+ 
+Queries:
+    NameHasID('Snoopy',Id)?
+ 
+
+
@@ -0,0 +1,19 @@
+
+
+Schemes:
+  bob(A,B)
+
+Facts:
+  bob('4','2').
+
+Rules:
+  bob(A,B) :- bob(B,A).
+
+Queries:
+  bob(X,Y)?
+
+
+# extra tokens at end of file
+
+????
+
@@ -0,0 +1,19 @@
+
+
+Schemes:
+  bob(A,B)
+
+Facts:
+  bob('4','2').
+
+Rules:
+  bob(A,B) :- bob(B,A).
+
+
+# wrong punctuation for query
+
+Queries:
+  bob(X,Y).
+
+
+
@@ -0,0 +1,18 @@
+
+
+Schemes:
+  bob(A,B)
+
+# missing punctuation on fact
+
+Facts:
+  bob('4','2')
+
+Rules:
+  bob(A,B) :- bob(B,A).
+
+Queries:
+  bob(X,Y)?
+
+
+
@@ -0,0 +1,16 @@
+
+
+Schemes:
+  bob(A,B)
+
+# fact/rule lists should be optional
+
+Facts:
+
+Rules:
+
+Queries:
+  bob(X,Y)?
+
+
+
@@ -0,0 +1,14 @@
+
+
+# scheme/query lists should be required
+
+Schemes:
+
+Facts:
+
+Rules:
+
+Queries:
+
+
+
@@ -0,0 +1,21 @@
+
+
+Schemes:
+  bob(A,B)
+
+Facts:
+  bob('4','2').
+
+# rules section should exist
+# queries should come after rules
+
+Queries:
+  bob(X,Y)?
+
+# facts can't be repeated
+
+Facts:
+  bob('4','4').
+
+
+
@@ -0,0 +1,19 @@
+Success!
+Schemes(2):
+  snap(S,N,A,P)
+  HasSameAddress(X,Y)
+Facts(2):
+  snap('12345','C. Brown','12 Apple','555-1234').
+  snap('33333','Snoopy','12 Apple','555-1234').
+Rules(1):
+  HasSameAddress(X,Y) :- snap(A,X,B,C),snap(D,Y,B,E).
+Queries(1):
+  HasSameAddress('Snoopy',Who)?
+Domain(6):
+  '12 Apple'
+  '12345'
+  '33333'
+  '555-1234'
+  'C. Brown'
+  'Snoopy'
+
@@ -0,0 +1,3 @@
+Failure!
+  (Q_MARK,"?",10)
+
@@ -0,0 +1,3 @@
+Failure!
+  (Q_MARK,"?",18)
+
@@ -0,0 +1,3 @@
+Failure!
+  (PERIOD,".",16)
+
@@ -0,0 +1,3 @@
+Failure!
+  (RULES,"Rules",11)
+
@@ -0,0 +1,9 @@
+Success!
+Schemes(1):
+  bob(A,B)
+Facts(0):
+Rules(0):
+Queries(1):
+  bob(X,Y)?
+Domain(0):
+
@@ -0,0 +1,3 @@
+Failure!
+  (FACTS,"Facts",7)
+
@@ -0,0 +1,3 @@
+Failure!
+  (QUERIES,"Queries",12)
+
@@ -0,0 +1,15 @@
+Schemes:
+  SK(A,B)
+Facts:
+  SK('a','c').
+  SK('b','c').
+  SK('b','b').
+  SK('b','c').
+Rules:
+  DoNothing(Z) :- Stuff(Z).
+Queries:
+  SK(A,'c')?
+  SK('b','c')?
+  SK(X,X)?
+  SK(A,B)?
+
@@ -0,0 +1,11 @@
+SK(A,'c')? Yes(2)
+  A='a'
+  A='b'
+SK('b','c')? Yes(1)
+SK(X,X)? Yes(1)
+  X='b'
+SK(A,B)? Yes(3)
+  A='a', B='c'
+  A='b', B='b'
+  A='b', B='c'
+