F #지도에서 세트 찾기

Question

그래서 관련된 번호와 설명이있는 자동차가 포함 된 데이터베이스가 있습니다. 어떻게 그 기능을 만들 것

type Database = Map<CarNo, CarDesc> 
type CarNo = int 
type CarDesc = Name * Price 
type Name = string 
type Price = int 

나는 숫자에 따라 모든 차의 가격의 합을 얻고 싶은 경우에, : 그 데이터베이스는 다음과 같습니다? 나는 시작하는 방법에 조금 붙어있다.

감사합니다.

Answer 1

나는이 기능이지도의 모든 자동차 가격을 합산한다고 상상합니다. 그러나 질문 제목과는 대조적으로 여기에 관련된 세트가 없습니다.

let sumPrices (db:Database) = 
    db |> Map.fold (fun acc _ (_, price) -> acc + float price) 0.0 

Answer 2

db |> Seq.sumBy (fun (KeyValue (_, (_, price))) -> price)