dictionary - 从记录列表生成字典

Question

BMap 对象是 BPair Elm-Records 的列表。如何构建仅包含 BPair.isEnabled == True 的那些对的 Dictionary？最终，我们需要在给定的closer的相应opener处Dict.get。

或者，如果记录本身可以被“查询”，那么我宁愿这样做。

type alias EnabledPair = (Char, Char) 
type alias EnabledMap  = Dict EnabledPair  -- how to generate this? 

type alias BPair = {
  opener: Char, 
  closer: Char,
  isEnabled: Bool,
  id: Int
}

type alias BMap = List BPair

Answer 1

简而言之，您必须:

1. 过滤BMap以获取.isEnabled中所有具有True的BPair
2. 将所有列表项转换为元组EnabledPair
3. 使用Dict.fromList将其转换为字典
4. 现在您可以使用Dict.get检索Maybe EnabledPair

请考虑这个例子:

import Graphics.Element exposing (show)
import Dict exposing (Dict)


type alias EnabledPair = (Char, Char) 


type alias EnabledMap = Dict Char EnabledPair


type alias BPair = {
  opener: Char, 
  closer: Char,
  isEnabled: Bool,
  id: Int
}


type alias BMap = List BPair


testList : BMap
testList =
  [ BPair '(' ')' True 1
  , BPair '{' '}' False 2
  , BPair '[' ']' True 3
  , BPair '<' '>' False 4
  ]


main =
  testList
  |> List.filter (\{isEnabled} -> isEnabled == True)
  |> List.map (\{opener, closer} -> (opener, closer))
  |> Dict.fromList
   -- Dict.get will always return Maybe Char, so you have to handle that
  |> Dict.get '{'
  |> show