   [user-data]
   (let [datum (assoc (:datum user-data) -1 1)
         pompom (apply max-key val datum)]
-    (if (#{43 44 45} (first pompom)) (> (datum 43 0) 10) false)))
+    (if (cg-smas (first pompom)) (> (reduce + (vals datum)) 50) false)))
 
 (defn count-lulus-snmptn
   [pre-source post-source]
   (let [pre-data (open-file pre-source)
         post-data (sequence
-                    (comp (filter #(<= (reduce + (vals (:datum %))) 5))
-                          (map :memberid))
+                    (map :memberid)
                     (open-file post-source))
         kelas12 (->> (sequence
                        (comp (filter kelas12?)

                       set)]
    [(count bersbmptn) (->> (keep bersbmptn post-data) count)]))



(def name-smas
  '({:canonical-name "pelajaran-sma-kelas-10", :id 41}

  [user-data]
  (let [datum (assoc (:datum user-data) -1 1)
        pompom (apply max-key val datum)]
    (if (cg-smas (first pompom)) (> (datum 45 0) 1) false)))

(defn count-lulus-sbmptn
  [pre-source post-source]
  (let [pre-data (open-file pre-source)
        post-data (sequence
                    (map :memberid)
                    (open-file post-source))
        bersbmptn (->> (sequence
                         (comp (filter bersbmptn?)
