Sha256: 81ca86248c1c9b7ead1104ecdb8087c342d97b432a5138be7ee149463dea5c4e

Contents?: true

Size: 416 Bytes

Versions: 156

Compression:

Stored size: 416 Bytes

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 = Map.toList school

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

Version data entries

156 entries across 156 versions & 1 rubygems

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