aindreas/uni
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add CT331 Programming Paradigms

Browse Source
This commit is contained in:
Aindréas Ó hAodha
2023-12-07 01:33:53 +00:00
parent 38a012c323
commit 262614ce83
207 changed files with 4516 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
third/semester1/CT331: Programming Paradigms/assignments/assignment3/code/question1.prolog Normal file
View File

@ -0,0 +1,26 @@
takes(tom, ct331).
takes(mary, ct331).
takes(joe, ct331).
takes(tom, ct345).
takes(mary, ct345).
instructs(bob, ct331).
instructs(ann, ct345).
% 1. rule that returns true if a given instructor teaches a given student
teaches(Instructor, Student) :- instructs(Instructor, Course), takes(Student, Course).
% 2. query that uses the `teaches` rule to show all students instructed by bob
?- teaches(bob, Student).
?- findall(Student, teaches(bob, Student), Students).
% 3. query that uses the `teaches` rule to show all instructors that instruct mary
?- teaches(Instructor, mary).
?- findall(Instructor, teaches(Instructor, mary), Instructors).
% 5. rule that returns true if two students take the same course
takesSameCourse(Student1, Student2) :- takes(Student1, Course), takes(Student2, Course).
contains1(Element, [Element | Tail]).
contains2(Sublist, [Head | Sublist]).