Contents

(ns grade-school)

(defn grade
  "show the roster for a specific grade"
  [db grade-level]
    (db grade-level []))

(defn add
  "add student to roster for grade"
  [db student grade-level]
    (let [roster (grade db grade-level)]
      (assoc db grade-level (conj roster student))))

(defn sorted
  "show the sorted roster for each grade"
  [db]
    (into (sorted-map)
      (for [[grade-level roster] db]
        [grade-level (sort roster)])))

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.179	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.178	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.177	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.176	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.175	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.174	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.173	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.172	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.171	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.170	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.169	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.167	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.166	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.165	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.164	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.163	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.162	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.161	tracks/clojure/exercises/grade-school/src/example.clj
trackler-2.2.1.160	tracks/clojure/exercises/grade-school/src/example.clj