mono/linux-packaging-mono
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Imported Upstream version 6.6.0.89

Browse Source 
Former-commit-id: b39a328747c2f3414dc52e009fb6f0aa80ca2492
This commit is contained in:
Xamarin Public Jenkins (auto-signing)
2019-09-24 08:53:40 +00:00
parent cf815e07e0
commit 95fdb59ea6
2556 changed files with 138145 additions and 47453 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
external/api-doc-tools/mdoc/mdoc.Test/mdoc.Test.FSharp/OperatorsOverloading.fs vendored Normal file
View File

@@ -0,0 +1,42 @@
module OperatorsOverloading
// The following code illustrates a vector class that has just two operators, one for unary minus
// and one for multiplication by a scalar. In the example, two overloads for scalar multiplication are needed
// because the operator must work regardless of the order in which the vector and scalar appear.+
type Vector(x: float, y : float) =
member this.x = x
member this.y = y
static member (~-) (v : Vector) =
Vector(-1.0 * v.x, -1.0 * v.y)
static member (*) (v : Vector, a) =
Vector(a * v.x, a * v.y)
static member (^^^) (a, v: Vector) =
Vector(a * v.x, a * v.y)
static member (?<-) (a, v, b: Vector) =
Vector(a * b.x, a * b.y)
static member (|+-+) (a : int, v: Vector) =
Vector(0.0, 0.0)
static member ( ~~~ ) (v: Vector) =
Vector(0.0, 0.0)
static member ( + ) (v: Vector, v2: Vector) =
Vector(0.0, 0.0)
static member ( .. .. ) (start, step, finish) =
Vector(0.0, 0.0)
static member ( .. ) (start, finish) =
Vector(0.0, 0.0)
override this.ToString() =
this.x.ToString() + " " + this.y.ToString()
let v1 = Vector(1.0, 2.0)
let v2 = v1 * 2.0
let v4 = - v2
let v5 = 1 |+-+ v2
let v7 = ~~~ v4
printfn "%s" (v1.ToString())
printfn "%s" (v2.ToString())
printfn "%s" (v4.ToString())
let v9 : ('T2 -> 'T3) -> ('T1 -> 'T2) -> ('T1 -> 'T3) = Operators.(<<)
let v10 : ('T2 -> 'T3) -> ('T1 -> 'T2) -> ('T1 -> 'T3) = Operators.(<<)