;; The first three lines of this file were inserted by DrRacket. They record metadata ;; about the language level of this file in a form that our tools can easily process. #reader(lib "htdp-beginner-reader.ss" "lang")((modname grades-average-list-mixed) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ()))) ;; A Grade is either: ;; - a Number, or ;; - a re-take (make-retake Number Number) ;; - empty ;; - a String (excusal reason -- doesn't count) ;; interpretation: a number represents an actual grade result; ;; empty represents a missing grade (define-struct retake (fst snd)) ;how-many-done: List-of-Grades -> Number ;Calculates how many non-empty grades there are in a list (check-expect (how-many-done (list "sick" empty empty "travel")) 2) (check-expect (how-many-done (list 45 empty 40 empty 90)) 5) (check-expect (how-many-done empty) 0) (check-expect (how-many-done (list 60 70 (make-retake 40 50) "sick" 60 30)) 5) (define (how-many-done alog) (cond [(empty? alog) 0] [(empty? (first alog)) (+ 1 (how-many-done (rest alog)))] ((string? (first alog)) (+ 0 (how-many-done (rest alog)))) [else (+ 1 (how-many-done (rest alog)))])) ;summation: List-of-Grades -> Number ;Calculates the sum of the log adding 0 for empty entries (check-expect (summation (list 45 45 45 45)) 180) (check-expect (summation (list empty 45 45 45)) 135) (check-expect (summation (list empty 30 empty "sick" 70)) 100) (check-expect (summation empty) 0) (define (summation alog) (cond [(empty? alog) 0] [(cons? alog) (cond [(empty? (first alog)) (+ 0 (summation (rest alog)))] [(retake? (first alog)) (+ (max (retake-fst (first alog)) (retake-snd (first alog))) (summation (rest alog)))] [(string? (first alog)) (summation (rest alog))] [else (+ (first alog) (summation (rest alog)))])])) ; average: List-of-Grades -> Number or "No Data" ; Produces the average of the given list of grades ; ignoring excusals, counting missing grades as 0, ; and taking into account the higher of two grades in ; case of a retake. ; If there are no values at all to average, produces ; the string "No Data". (check-expect (average (list 45 45 45 45 45 empty 45)) (/ (* 6 45) 7)) (check-expect (average (list 100 empty "sick" 50)) 50) (check-expect (average empty) "No Data") (check-expect (average (list empty empty "excused" empty)) 0) (define (average alog) (cond [(= (how-many-done alog) 0) "No Data"] [else (/ (summation alog) (how-many-done alog))])) (require racket/base) (require (planet nah22/racketui)) ; (require (planet "main.rkt" ("nah22" "racketui.plt" 1 1))) (define/web grade/web (oneof ["Actual grade" number] ["Retake" (structure make-retake ["First attempt" number] ["Second attempt" number])] ["Excused (reason)" string+] ["Missing" (constant empty)])) (web-launch "Grade Average Computer" (function "Computes the average of grades in the given list." (average ["Grades" (listof ["Grade Result" grade/web])] -> ["Final Grade" (oneof ["Average grade" number] ["No Data" (constant "No Data")])])))