在代码中它运行良好,如下所示
divide :: Int -> Int -> Either String Int
divide a 0 = Left "Error with 0"
divide a b = Right (a `div` b)
要更改的代码
Map.adjust (divide 3) "A" $ Map.fromList [("A",3),("B",0)]
预期结果应该是:
Map.adjust (divide 3) "A" $ Map.fromList [("A",3),("B",0)]
=> Right $ Map.fromList [("A",1),("B",0)]
Map.adjust (divide 3) "B" $ Map.fromList [("A",3),("B",0)]
=> Left "Error with 0"
或者一般来说如何构建如下函数:
Map.adjust:: (a -> m a) -> k -> (Map k a) -> m (Map k a)
非常感谢 !