code di ia, F# - rextester

Language: Layout:

type QuestionId = string
type QuestionDictionary = Map<QuestionId, string>
type AnswerSet = Map<string, string>
type AnswerDictionary = Map<QuestionId, AnswerSet>

let printQuestion questionId questionLabel =
        printfn "QUESTION [%s]: %s" questionId questionLabel
        match answerDict |> Map.tryFind questionId with
        | Some answerSet ->
            let relatedQuestionIds = helperDict |> Map.find answerSet
            for id in relatedQuestionIds do
                if questionId <> id then
                    let label = questionDict |> Map.find id
                    printfn "/ [%s]: %s" id label
            answerSet
            |> Map.iter (fun id label -> printfn "\t[%s]: %s" id label)
            relatedQuestionIds
        | None ->
            Set.empty

questionDict
    |> Map.fold
        (fun printedQuestionIds questionId questionLabel ->
            if printedQuestionIds |> Set.contains questionId then
                printedQuestionIds
            else
                printQuestion questionId questionLabel
                |> Set.union printedQuestionIds)
        Set.empty
    |> ignore

// Test
let questionDict : QuestionDictionary =
    [   "Q1", "Ban ten gi?"
        "Q2", "Gioi tinh?"
        "Q3.1", "Ngay di ia may lan?"
        "Q3.2", "Ngay du may lan?"
    ] |> Map.ofList
let answerDict : AnswerDictionary =
    [   "Q2",       [ ("1", "Nam"); ("2", "Nu") ] |> Map.ofList
        "Q3.1",     [ ("1", "Mot lan"); ("2", "Hai lan"); ("3", "Ngan lan") ] |> Map.ofList
        "Q3.2",     [ ("1", "Mot lan"); ("2", "Hai lan"); ("3", "Ngan lan") ] |> Map.ofList
    ] |> Map.ofList
print questionDict answerDict

Show compiler warnings [ + ] Show input
Compilation time: 3.89 sec, absolute running time: 0.25 sec, cpu time: 0.25 sec, memory peak: 13 Mb, absolute service time: 4,15 sec