mirror of
https://github.com/correl/elm.git
synced 2024-12-21 11:08:59 +00:00
40 lines
694 B
Text
40 lines
694 B
Text
module GradeSchool exposing (..)
|
|
|
|
import Dict exposing (..)
|
|
|
|
|
|
type alias Grade =
|
|
Int
|
|
|
|
|
|
type alias Student =
|
|
String
|
|
|
|
|
|
type alias School =
|
|
Dict Int (List Student)
|
|
|
|
|
|
empty : School
|
|
empty =
|
|
Dict.empty
|
|
|
|
|
|
addStudent : Grade -> Student -> School -> School
|
|
addStudent grade student school =
|
|
Dict.insert grade (List.sort (student :: (studentsInGrade grade school))) school
|
|
|
|
|
|
studentsInGrade : Grade -> School -> List Student
|
|
studentsInGrade grade school =
|
|
case (Dict.get grade school) of
|
|
Just list ->
|
|
list
|
|
|
|
Nothing ->
|
|
[]
|
|
|
|
|
|
allStudents : School -> List ( Grade, List Student )
|
|
allStudents school =
|
|
Dict.toList school |> List.sortBy fst
|