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

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