Commits

Anonymous committed dd6b93f

Fix grades

Comments (0)

Files changed (1)

 
 (use srfi-1)
 
+; format for semester is (grade weight)
 (define sem1 '((2.9 1) (0.6 5) (9.5 4) (0.4 6)))
 (define sem2 '((5.5 1) (4.4 5) (4 6) (0.3 4)))
 (define sem3 '((7.1 5) (5 6) (3.8 4)))
 (define sem5 '((6.3 5) (3.6 4) (5.4 4)))
 (define sem6 '((0 4) (4.1 4)))
 (define sem7 '((8.1 4)))
-(define sem8 '((5 3.8) (1 6.2) (4 5.2) (4 0.8) (5 0.5)))
-(define sem9 '((4 7.0) (4 7.4) (5 3) (4 1.6)))
+(define sem8 '((3.8 5) (6.2 1) (0.5 5) (5.2 4) (0.8 4)))
+(define sem9 '((1.7 5) (1.6 4) (8.0 4) (7.4 4)))
 
 (printf "~a~%" 
   (eval (cons 'append
                  (map (lambda (x) 
                         (string-append "sem" (number->string x))) 
                       (iota 9 1))))))
-
-