Commits

iru  committed dd6b93f

Fix grades

  • Participants
  • Parent commits ca4f52f

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))))))
-
-