Sha256: f31cb52486446d56df4306eb3f408c4520514ac2c2be9c2cbf4e445fd00c64fe
Contents?: true
Size: 436 Bytes
Versions: 396
Compression:
Stored size: 436 Bytes
Contents
(defmodule grade-school
(export (add 3)
(get 2)
(new 0)
(sort 1)))
(defun add (name grade school)
(case (get grade school)
(() (orddict:store grade `(,name) school))
(class (orddict:store grade (ordsets:add_element name class) school))))
(defun get (grade students)
(case (orddict:find grade students)
(`#(ok ,class) class)
(_ ())))
(defun new () ())
(defun sort (school) school)
Version data entries
396 entries across 396 versions & 1 rubygems