单位之间的转换

[<Measure>] type m // meters
[<Measure>] type cm // centimeters

// Conversion factor
let cmInM = 100<cm/m>

let distanceInM = 1<m>
let distanceInCM = distanceInM * cmInM // 100<cm>

// Conversion function
let cmToM (x : int<cm>) = x / 100<cm/m>
let mToCm (x : int<m>) = x * 100<cm/m>

cmToM 100<cm> // 1<m>
mToCm 1<m> // 100<cm>

请注意，F#编译器不知道 1<m> 等于 100<cm>。就其而言，单位是单独的类型。你可以编写类似的函数来从米转换为千克，编译器也不会关心。

[<Measure>] type kg

// Valid code, invalid physics
let kgToM x = x / 100<kg/m>

不可能将度量单位定义为其他单位的倍数，例如

// Invalid code
[<Measure>] type m = 100<cm>

然而，为了定义单位每个东西，例如赫兹，测量频率，简单地说是每秒，非常简单。

// Valid code
[<Measure>] type s
[<Measure>] type Hz = /s

1 / 1<s> = 1 <Hz> // Evaluates to true

[<Measure>] type N = kg m/s // Newtons, measuring force. Note lack of multiplication sign.

// Usage
let mass = 1<kg>
let distance = 1<m>
let time = 1<s>

let force = mass * distance / time // Evaluates to 1<kg m/s>
force = 1<N> // Evaluates to true