在f#中处理列表的嵌套记录

type ScoreRecord = { Subject: string; Score: int }
type Student = { Name: string; Scores: ScoreRecord list }

let students = [
    { Name = "Alice"; Scores = [{ Subject = "Math"; Score = 90 }; { Subject = "English"; Score = 85 }] }
    { Name = "Bob"; Scores = [{ Subject = "Math"; Score = 95 }; { Subject = "English"; Score = 80 }] }
    { Name = "Charlie"; Scores = [{ Subject = "Math"; Score = 85 }; { Subject = "English"; Score = 90 }] }
]

let highMathStudents =
    [ for student in students do
        let highMathScores = [ for score in student.Scores do if score.Subject = "Math" && score.Score > 90 then yield score ]
        if highMathScores <> [] then yield { student with Scores = highMathScores } ]