F # Необязательное поле записи

Question

У меня есть тип записи F # и я хочу, чтобы одно из полей было необязательным:

type legComponents = {
    shares : int<share> ;
    price : float<dollar / share> ;
    totalInvestment : float<dollar> ;
}

type tradeLeg = {
    id : int ;
    tradeId : int ;
    legActivity : LegActivityType ;
    actedOn : DateTime ;
    estimates : legComponents ;
    ?actuals : legComponents ; 
}

в типе tradeLeg Я бы хотел, чтобы поле facts было необязательным. Я не могу понять это и не могу найти надежного примера в Интернете. Кажется, это должно быть легко, как

let ?t : int = None

но я действительно не могу заставить это работать. Тьфу - спасибо

T

Answer 1

Как отмечали другие, вы можете использовать тип 'a option. Однако это не создает необязательное поле записи (значение которого вам не нужно указывать при его создании). Например:

type record = 
  { id : int 
    name : string
    flag : bool option }

Чтобы создать значение типа record, вам все равно необходимо указать значение поля flag:

let recd1 = { id = 0; name = "one"; flag = None }     
let recd2 = { id = 0; name = "one"; flag = Some(true) } 

// You could workaround this by creating a default record 
// value and cloning it (but that's not very elegant either):
let defaultRecd = { id = 0; name = ""; flag = None }     
let recd1 = { defaultRecd  with id = 0; name = "" }

К сожалению, (насколько мне известно) вы не можете создать запись, в которой было бы действительно поле опций, которое вы могли бы пропустить при ее создании. Однако вы можете использовать тип класса с конструктором, а затем использовать синтаксис ?fld для создания необязательных параметров конструктора:

type Record(id : int, name : string, ?flag : bool) = 
  member x.ID = id
  member x.Name = name
  member x.Flag = flag

let rcd1 = Record(0, "foo")
let rcd2 = Record(0, "foo", true)

Тип rcd1.Flag будет bool option, и вы можете работать с ним, используя сопоставление с образцом (как продемонстрировал Инь Чжу). Единственное заметное отличие между записями и простыми классами, такими как этот, заключается в том, что вы не можете использовать синтаксис with для клонирования классов и что классы (автоматически) не реализуют семантику структурного сравнения.

Answer 2

Как насчет Option?

type tradeLeg = {
    id : int option;
    tradeId : int option;
    legActivity : LegActivityType option;
    actedOn : DateTime option;
    estimates : legComponents option;
    actuals : legComponents option; 
}

Answer 3

в качестве комментария к существующим сообщениям, вот пример для типа опции:

..
id: int option;
..

match id with
  | Some x -> printfn "the id is %d" x
  | None -> printfn "id is not available" 

вы можете скрыть идентификатор со значением опции:

let id = Some 10

или

let id = None

и обратитесь к этой странице MSDN: http://msdn.microsoft.com/en-us/library/dd233245%28VS.100%29.aspx.

Здесь - еще один пример для типа опции, и вы, вероятно, будете заинтересованы в Seq.unfold.

Answer 4

actuals : legComponents option;