Sha256: 10768c016ebbb501c2c71f54f9212d7086cd1d9c0fa9e27ad61855b1a6b36386
Contents?: true
Size: 1020 Bytes
Versions: 127
Compression:
Stored size: 1020 Bytes
Contents
module KindergartenGarden
type Plant = Violets | Radishes | Clover | Grass
let plantsPerChildPerRow = 2
let rowSeparator = '\n'
let private children =
[ "Alice"; "Bob"; "Charlie"; "David";
"Eve"; "Fred"; "Ginny"; "Harriet";
"Ileana"; "Joseph"; "Kincaid"; "Larry"]
let private plantFromCode code =
match code with
| 'V' -> Violets
| 'R' -> Radishes
| 'C' -> Clover
| 'G' -> Grass
| x -> failwithf "%c is an invalid plant code" x
let private plantsInRow (row: string) =
Seq.map plantFromCode row
|> Seq.chunkBySize plantsPerChildPerRow
|> Seq.map List.ofArray
let toGarden (windowSills: string) =
let rows = windowSills.Split rowSeparator
let row1 = plantsInRow rows.[0]
let row2 = plantsInRow rows.[1]
Seq.zip3 children row1 row2
|> Seq.map (fun (child, plants1, plants2) -> (child, plants1 @ plants2))
|> Map.ofSeq
let plants diagram student =
let garden = toGarden diagram
defaultArg (Map.tryFind student garden) []
Version data entries
127 entries across 127 versions & 1 rubygems