added hw5 files

Spr24/HW/Homework5/gr.py

@@ -0,0 +1,72 @@
+class Student:
+    def __init__(self, name, age, grades):
+        self.name = name
+        self.age = age
+        self.grades = grades
+
+    def average_grade(self):
+        return sum(self.grades) / len(self.grades)
+
+def find_top_student(students):
+    top_student = students[0]
+    for student in students:
+        if student.average_grade() > top_student.average_grade():
+            top_student = student
+    return top_student
+
+def factorial(n):
+    if n == 0:
+        return 1
+    else:
+        return n * factorial(n-1)
+
+def fibonacci(n):
+    if n <= 0:
+        return []
+    elif n == 1:
+        return [0]
+    elif n == 2:
+        return [0, 1]
+    else:
+        fibs = fibonacci(n-1)
+        fibs.append(fibs[-1] + fibs[-2])
+        return fibs
+
+def add_grades_to_set(s, grades):
+    for grade in grades:
+        s.add(grade)
+    return s
+
+def calculate_total_length(strings):
+    total = 0
+    for s in strings:
+        total += len(s)
+    return total
+
+students = [
+    Student('Alice', 20, [90, 92, 85]),
+    Student('Bob', 22, [85, 87, 90]),
+    Student('Charlie', 23, [100, 95, 90])
+]
+
+top_student = find_top_student(students)
+print(f'Top student: {top_student.name} with average grade {top_student.average_grade()}')
+
+factorial(5)
+fibonacci(10)
+find_top_student(students)
+add_grades_to_set({1, 2, 3}, [4, 5, 6])
+add_grades_to_set({1, 2, 3}, [4, 5, 'six'])
+calculate_total_length(['hello', 'world'])
+students[0].average_grade()
+students[1].average_grade()
+students[2].average_grade()
+fibonacci(15)
+factorial(0)
+factorial(10)
+add_grades_to_set(set(), [7, 8, 9])
+calculate_total_length(['hello', 'world', 123])
+calculate_total_length(['one', 'two', 'three'])
+students[0].name
+students[1].age
+students[2].grades

Spr24/HW/Homework5/q1.expected

@@ -0,0 +1,35 @@
+val it = () : unit
+val it = [[(0,0),(0,1)],[(1,0),(1,1)],[(2,0),(2,1)]] : (int * int) list list
+val it = [] : (int * int) list list
+val it = [[(0,0)],[(1,0)],[(2,0)]] : (int * int) list list
+val it = [[(0,0),(0,1),(0,2)],[(1,0),(1,1),(1,2)],[(2,0),(2,1),(2,2)]]
+  : (int * int) list list
+val it =
+  [[(1,1),(2,1),(3,1),(4,1)],[(1,2),(2,2),(3,2),(4,2)],
+   [(1,3),(2,3),(3,3),(4,3)]] : (int * int) list list
+val it = [[(1,1),(2,1),(3,1)],[(1,2),(2,2),(3,2)],[(1,3),(2,3),(3,3)]]
+  : (int * int) list list
+val it =
+  [[(1,1),(2,1),(3,1)],[(1,2),(2,2),(3,2)],[(1,3),(2,3),(3,3)],
+   [(1,4),(2,4),(3,4)]] : (int * int) list list
+val it = [(1,1),(2,1),(1,2),(3,1),(2,2),(1,3),(4,1),(3,2),(2,3),(1,4)]
+  : (int * int) list
+val it = Cons ((0,0),fn) : (int * int) Seq
+exec: (1, 0)
+val it = Cons ((1,0),fn) : (int * int) Seq
+exec: (0, 1)
+val it = Cons ((0,1),fn) : (int * int) Seq
+exec: (2, 0)
+val it = Cons ((2,0),fn) : (int * int) Seq
+exec: (1, 1)
+val it = Cons ((1,1),fn) : (int * int) Seq
+exec: (0, 2)
+val it = Cons ((0,2),fn) : (int * int) Seq
+exec: (2, 1)
+val it = Cons ((2,1),fn) : (int * int) Seq
+exec: (1, 2)
+val it = Cons ((1,2),fn) : (int * int) Seq
+exec: (2, 2)
+val it = Cons ((2,2),fn) : (int * int) Seq
+val it = Nil : (int * int) Seq
+

Spr24/HW/Homework5/q1.in

@@ -0,0 +1,47 @@
+(* redefine in case the code wasn't copied *)
+
+fun coords (3, _) = DNil
+  | coords (_, 3) = DNil
+  | coords (x, y) = DCons((x, y), fn () => coords (x + 1, y), fn () => coords (x, y + 1));
+fun pcoords (3, _) = DNil
+  | pcoords (_, 3) = DNil
+  | pcoords (x, y) = (
+    print ("exec: (" ^ Int.toString x ^ ", " ^  Int.toString y ^ ")\n"); 
+    DCons((x, y), fn () => pcoords (x, y + 1), fn () => pcoords (x + 1,y))
+  );
+
+fun next Nil = Nil
+  | next (Cons(x, xf)) = xf ();
+
+fun take s 0 = []
+  | take Nil _ = []
+  | take (Cons (x, xf)) n = x :: take (xf ()) (n - 1);
+
+val p = pcoords (0, 0);
+val s = coords (0, 0);
+
+print "===TEST START===\n";
+
+(* Testing toMatr function *)
+toMatrix s (3, 2);
+toMatrix s (0, 3);
+toMatrix s (3, 1);
+toMatrix s (3, 3);
+
+(* Testing Q *)
+toMatrix (Q ()) (3, 4);
+toMatrix (Q ()) (3, 3);
+toMatrix (Q ()) (4, 3);
+
+(* Testing diags *)
+take (diags (Q ())) 10;
+diags p;
+next it;
+next it;
+next it;
+next it;
+next it;
+next it;
+next it;
+next it;
+next it;

Spr24/HW/Homework5/q1_def.sml

@@ -0,0 +1,24 @@
+datatype 'a DSeq = DNil | DCons of 'a * (unit -> 'a DSeq) * (unit -> 'a DSeq);
+datatype 'a Seq = Nil | Cons of 'a * (unit -> 'a Seq);
+
+fun coords (3, _) = DNil
+  | coords (_, 3) = DNil
+  | coords (x, y) = DCons((x, y), fn () => coords (x + 1, y), fn () => coords (x, y + 1));
+
+val s = coords (0, 0);
+
+fun next Nil = Nil
+  | next (Cons(x, xf)) = xf ();
+
+fun take s 0 = []
+  | take Nil _ = []
+  | take (Cons (x, xf)) n = x :: take (xf ()) (n - 1);
+
+fun pcoords (3, _) = DNil
+  | pcoords (_, 3) = DNil
+  | pcoords (x, y) = (
+    print ("exec: (" ^ Int.toString x ^ ", " ^  Int.toString y ^ ")\n"); 
+    DCons((x, y), fn () => pcoords (x, y + 1), fn () => pcoords (x + 1,y))
+  );
+
+val p = pcoords (0, 0);

Spr24/HW/Homework5/q2.expected

@@ -0,0 +1,13 @@
+true.
+
+true.
+
+false.
+
+false.
+
+true.
+
+L = [[3, 17], [7, 13], [13, 7], [17, 3]].
+
+

Spr24/HW/Homework5/q2.in

@@ -0,0 +1,17 @@
+use_module(library(yall)).
+print("===TEST START===").
+
+once(pythagorean(3, 4, 5)).
+once(pythagorean(3, 3, 5)).
+
+once(prime(4)).
+once(prime(17)).
+
+{L}/(
+    findall(
+        [X, Y],
+        goldbach(X, Y, 20),
+        L1
+    ),
+    msort(L1, L)
+).