fun

;; - Check if all points are at least 8/20

;; - Check if maximum two points are less than 10/20

;; - Check if WEIGHED total is at least 50%

;; - If one of the conditions is not fulfilled, display which points need to be

;;   changed in order to meet the conditions

(defn tolerable

  [results]

  (def weighted_results (reduce + (map * (map :ects results) (map :points results))))

  (def failed_courses (set (filter #(< (:points %) 10) results)))

  (def failed_weight (reduce + (map * (map :ects failed_courses) (map :points failed_courses))))

  (if (<= (/ failed_weight weighted_results) 1/100) true false))

(defn receive-courses

  ([] (receive-courses #{}))

  ([courses]

   (let [name (read-line)

         ects (read-line)

         points (read-line)]

     (if (= name "")

       courses

       (recur (conj courses {:name name :ects ects :points points}))))))

;;(print (tolerable (receive-courses)))

(def actual_results [

                     {:name "Discrete wiskunde 1" :ects 4 :points 10}

                     {:name "Wiskunde basistechniek" :ects 3 :points 10}

                     {:name "Wiskundige analyse 1" :ects 5 :points 10}

                     {:name "Ingenieursproject 1" :ects 6 :points 10}

                     {:name "Algemene scheikunde" :ects 6 :points 10}

                     {:name "Informatica" :ects 6 :points 10}

                     {:name "Natuurkunde 1" :ects 6 :points 10}

                     {:name "WenS" :ects 4 :points 10}

                     {:name "Bedrijfskunde" :ects 3 :points 10}

                     {:name "Wiskundige analyse 2" :ects 4 :points 10}

                     {:name "Materiaaltechnologie" :ects 5 :points 10}

                     {:name "MeLa" :ects 8 :points 10}])

(print (tolerable actual_results))