fun

;; Things left to implement:

;; - 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 uhasselt-tolerable

  [results]

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

  (println weighted_results)

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

  (println failed_courses)

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

  (println failed_weight)

  (if (< 2 (count failed_courses)) false

    (if (>= weighted_results 580) true false)))

(defn notweighed

  [results]

  (def normal_results (reduce + (map :points results)))

  (println normal_results)

  (println (/ normal_results (* 20 (count results)))))

(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}])

(def actual_results [

  {:name "caad 1a" :ects 3 :points 12}

  {:name "caad 1b" :ects 3 :points 15}

  {:name "ontwerpstudio ir en ctheorie" :ects 9 :points 11}

  {:name "schetsen 1a" :ects 3 :points 10}

  {:name "inleiding arch- en kunstgeesch" :ects 3 :points 1}

  {:name "inleiding matleer" :ects 3 :points 8}

  {:name "const en matleer 1a" :ects 3 :points 12}

  {:name "O&BSMRH" :ects 3 :points 15}

  {:name "Menswet 1" :ects 3 :points 10}

  {:name "ontwerpstudio wonen" :ects 9 :points 12}

  {:name "schetsen 1b" :ects 3 :points 11}

  {:name "inleiding arch en kunstgeesch 2" :ects 3 :points 10}

  {:name "const. eb matleer 1B" :ects 3 :points 11}

  {:name "beelding 1a" :ects 3 :points 16}

  {:name "beelding 1b" :ects 3 :points 12}

  {:name "comf en energ 1" :ects 3 :points 11}])

(println (uhasselt-tolerable actual_results))

(println (notweighed actual_results))