Contents

module GradeSchool

let empty = Map.empty<int, string list>

let add student grade school = 
    match Map.tryFind grade school with
    | Some existing -> Map.add grade (student :: existing |> List.sort) school
    | None -> Map.add grade [student] school

let roster school = school |> Map.toSeq

let grade number school = 
    match Map.tryFind number school with
    | Some students -> students
    | None -> []

Version data entries

240 entries across 240 versions & 1 rubygems

Version	Path
trackler-2.2.1.22	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.21	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.20	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.19	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.18	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.17	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.16	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.15	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.14	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.13	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.12	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.11	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.10	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.9	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.8	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.7	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.6	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.5	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.4	tracks/fsharp/exercises/grade-school/Example.fs
trackler-2.2.1.3	tracks/fsharp/exercises/grade-school/Example.fs