el porcentaje de egresados es un bolaso si no contás cuantas veces la gente rinde una materia, estamos hablando de % de aprobación no de egreso

analisis1.clj

(defn analisis1
  [students approval-rate]
  (let [total (count students)
        expected-approvals (* total approval-rate)]
    (loop [examined students iterations 0]
      (let [remaining (- total (count examined))]
        (if (< remaining expected-approvals)
          (let [approved (* (count examined) 0.1)]
            (recur (drop (int approved) examined) (inc iterations)))
          iterations)))))

dummy-test> (analisis1 (range 100) 0.30)
4
dummy-test> (analisis1 (range 100) 0.50)
7
dummy-test> (analisis1 (range 100) 0.80)
17