Haskell Language
zipWithM

소개

통사론

• zipWithM :: 적용 m => (a -> b -> mc) -> [a] -> [b] -> m [c]

판매 가격 계산

특정 판매 가격 세트가 상점에 적합한지를보고 싶다고 가정 해보십시오.

항목의 원래 가격은 5 달러입니다. 판매 가격이 그보다 낮 으면 판매를 받아들이지 않으려하지만, 그렇지 않은 경우 새로운 가격이 무엇인지 알아야합니다.

하나의 가격을 계산하는 것은 쉽습니다. 판매 가격을 계산하고 이익을 얻지 못하면 Nothing 반환하지 않습니다.

calculateOne :: Double -> Double -> Maybe Double
calculateOne price percent = let newPrice = price*(percent/100)
                             in if newPrice < 5 then Nothing else Just newPrice

전체 판매량을 계산하기 위해 zipWithM 사용하면 정말 간단합니다.

calculateAllPrices :: [Double] -> [Double] -> Maybe [Double]
calculateAllPrices prices percents = zipWithM calculateOne prices percents

판매 가격 중 $ 5 미만인 경우 Nothing 을 반환합니다.