System.Tuple<T1> F# snippets (dotnet#7919)

* Tuple F# snippets * Tuple<T1> F# snippets

Author: albert-du

snippets/fsharp/System/TupleT1/Equals/equals1.fs

@@ -0,0 +1,29 @@
+module equals1
+
+// <Snippet1>
+open System
+
+let testEquality (tuple: Tuple<double>) (obj: obj) =
+ printfn $"{tuple} = {obj}: {tuple.Equals obj}"
+
+let doubleTuple1 = Tuple.Create 12.3455
+let doubleTuple2 = Tuple.Create 16.8912
+let doubleTuple3 = Tuple.Create 12.3455
+let singleTuple1 = Tuple.Create 12.3455f
+let tuple2 = Tuple.Create("James", 97.3) 
+
+// Compare first tuple with a Tuple(Of Double) with a different value.
+testEquality doubleTuple1 doubleTuple2
+// Compare first tuple with a Tuple(Of Double) with the same value.
+testEquality doubleTuple1 doubleTuple3
+// Compare first tuple with a Tuple(Of Single) with the same value.
+testEquality doubleTuple1 singleTuple1
+// Compare a 1-tuple with a 2-tuple.
+testEquality doubleTuple1 tuple2 
+
+// The example displays the following output:
+// (12.3455) = (16.8912): False
+// (12.3455) = (12.3455): True
+// (12.3455) = (12.3455): False
+// (12.3455) = (James, 97.3): False
+// </Snippet1>

snippets/fsharp/System/TupleT1/Equals/equals2.fs

@@ -0,0 +1,40 @@
+module equals2
+
+// <Snippet2>
+open System
+open System.Collections
+
+type Tuple1Comparer() =
+ interface IEqualityComparer with
+ member _.Equals(x: obj, y: obj) =
+ match x with
+ | :? double as dblX -> 
+ // Convert to Double values.
+ let dblY = y :?> double
+ if Double.IsNaN dblX || Double.IsInfinity dblX ||
+ Double.IsNaN dblY || Double.IsInfinity dblY then
+ dblX.Equals dblY
+ else
+ abs (dblX - dblY) <= dblX * 0.0001
+ | _ ->
+ x.Equals y
+ 
+ member _.GetHashCode(obj: obj) =
+ obj.GetHashCode()
+
+let testEquality (tuple: Tuple<double>) (obj: obj) =
+ printfn $"{tuple} = {obj}: {(tuple :> IStructuralEquatable).Equals(obj, Tuple1Comparer())}"
+
+let doubleTuple1 = Tuple.Create 12.3455
+let doubleTuple2 = Tuple.Create 16.8912
+let doubleTuple3 = Tuple.Create 12.3449599
+
+// Compare first tuple with a Tuple<double> with a different value.
+testEquality doubleTuple1 doubleTuple2
+//Compare first tuple with a Tuple<double> with the same value.
+testEquality doubleTuple1 doubleTuple3
+
+// The example displays the following output:
+// (12.3455) = (16.8912): False
+// (12.3455) = (12.3449599): True
+// </Snippet2>

snippets/fsharp/System/TupleT1/Equals/fs.fsproj

@@ -0,0 +1,11 @@
+<Project Sdk="Microsoft.NET.Sdk">
+ <PropertyGroup>
+ <OutputType>Exe</OutputType>
+ <TargetFramework>net6.0</TargetFramework>
+ </PropertyGroup>
+
+ <ItemGroup>
+ <Compile Include="equals1.fs" />
+ <Compile Include="equals2.fs" />
+ </ItemGroup>
+</Project>

snippets/fsharp/System/TupleT1/Item1/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+ <PropertyGroup>
+ <OutputType>Exe</OutputType>
+ <TargetFramework>net6.0</TargetFramework>
+ </PropertyGroup>
+
+ <ItemGroup>
+ <Compile Include="item1.fs" />
+ </ItemGroup>
+</Project>

snippets/fsharp/System/TupleT1/Item1/item1.fs

@@ -0,0 +1,33 @@
+// <Snippet1>
+open System
+
+let tuple1 = Tuple.Create -1.23445e-32
+// Display information about this singleton.
+let tuple1Type = tuple1.GetType()
+printfn "First 1-Tuple:"
+printfn $" Type: {tuple1Type.Name}"
+printfn $" Generic Parameter Type: {tuple1Type.GetGenericArguments()[0]}" 
+printfn $" Component Value: {tuple1.Item1}"
+printfn $" Component Value Type: {tuple1.Item1.GetType().Name}\n"
+
+let tuple2 = Tuple.Create(bigint 1.83789322281780983781356676e103)
+// Display information about this singleton.
+let tuple2Type = tuple2.GetType()
+printfn "Second 1-Tuple:"
+printfn $" Type: {tuple2Type.Name}"
+printfn $" Generic Parameter Type: {tuple2Type.GetGenericArguments()[0]}" 
+printfn $" Component Value: {tuple2.Item1}"
+printfn $" Component Value Type: {tuple2.Item1.GetType().Name}"
+// The example displays the following output:
+// First 1-Tuple:
+// Type: Tuple`1
+// Generic Parameter Type: System.Double
+// Component Value: -1.23445E-32
+// Component Value Type: Double
+// 
+// Second 1-Tuple:
+// Type: Tuple`1
+// Generic Parameter Type: System.Numerics.BigInteger
+// Component Value: 1.8378932228178098168858909492E+103
+// Component Value Type: BigInteger
+// </Snippet1>

snippets/fsharp/System/TupleT1/System.Collections.IStructuralComparable.CompareTo/compareto1.fs

@@ -0,0 +1,46 @@
+module compareto1
+
+// <Snippet1>
+open System
+
+let values = 
+ [| Tuple.Create 13.54
+ Tuple.Create Double.NaN
+ Tuple.Create -189.42993
+ Tuple.Create Double.PositiveInfinity
+ Tuple.Create Double.Epsilon
+ Tuple.Create 1.934E-17
+ Tuple.Create Double.NegativeInfinity
+ Tuple.Create -0.000000000003588
+ null |]
+printfn "The values in unsorted order:"
+for value in values do
+ printfn $" %A{value.Item1}"
+printfn ""
+
+Array.Sort values
+
+printfn "The values sorted in descending order:"
+for value in values do
+ printfn $" %A{value.Item1}"
+// The example displays the following output:
+// The values in unsorted order:
+// 13.54
+// NaN
+// -189.42993
+// Infinity
+// 4.94065645841247E-324
+// 1.934E-17
+// -Infinity
+// -3.588E-12
+//
+// The values in sorted order:
+// NaN
+// -Infinity
+// -189.42993
+// -3.588E-12
+// 4.94065645841247E-324
+// 1.934E-17
+// 13.54
+// Infinity
+// </Snippet1>

snippets/fsharp/System/TupleT1/System.Collections.IStructuralComparable.CompareTo/compareto2.fs

@@ -0,0 +1,54 @@
+module compareto2
+
+// <Snippet2>
+open System
+open System.Collections.Generic
+
+type DescendingComparer<'T>() =
+ interface IComparer<'T> with
+ member _.Compare(x: 'T, y: 'T) = 
+ -1 * Comparer<'T>.Default.Compare(x, y)
+
+let values = 
+ [| Tuple.Create 13.54
+ Tuple.Create Double.NaN
+ Tuple.Create -189.42993
+ Tuple.Create Double.PositiveInfinity
+ Tuple.Create Double.Epsilon
+ Tuple.Create 1.934E-17
+ Tuple.Create Double.NegativeInfinity
+ Tuple.Create -0.000000000003588
+ null |]
+printfn "The values in unsorted order:"
+for value in values do
+ printfn $" %A{value.Item1}"
+printfn ""
+
+Array.Sort(values, DescendingComparer<Tuple<Double>>())
+
+printfn "The values sorted in descending order:"
+for value in values do
+ printfn $" %A{value.Item1}"
+// The example displays the following output:
+// The values in unsorted order:
+// 13.54
+// NaN
+// -189.42993
+// Infinity
+// 4.94065645841247E-324
+// 1.934E-17
+// -Infinity
+// -3.588E-12
+// <null>
+//
+// The values sorted in descending order:
+// Infinity
+// 13.54
+// 1.934E-17
+// 4.94065645841247E-324
+// -3.588E-12
+// -189.42993
+// -Infinity
+// NaN
+// <null>
+// </Snippet2>

snippets/fsharp/System/TupleT1/System.Collections.IStructuralComparable.CompareTo/fs.fsproj

@@ -0,0 +1,11 @@
+<Project Sdk="Microsoft.NET.Sdk">
+ <PropertyGroup>
+ <OutputType>Exe</OutputType>
+ <TargetFramework>net6.0</TargetFramework>
+ </PropertyGroup>
+
+ <ItemGroup>
+ <Compile Include="compareto2.fs" />
+ <Compile Include="compareto1.fs" />
+ </ItemGroup>
+</Project>

snippets/fsharp/System/TupleT1/ToString/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+ <PropertyGroup>
+ <OutputType>Exe</OutputType>
+ <TargetFramework>net6.0</TargetFramework>
+ </PropertyGroup>
+
+ <ItemGroup>
+ <Compile Include="tostring1.fs" />
+ </ItemGroup>
+</Project>

snippets/fsharp/System/TupleT1/ToString/tostring1.fs

@@ -0,0 +1,24 @@
+// <Snippet1>
+open System
+
+let displayTuple obj =
+ // String interpolation implicitly calls .ToString().
+ printfn $"{obj}"
+
+let tuple1Double = Tuple.Create 3.456e-18
+displayTuple tuple1Double
+
+let tuple1String = Tuple.Create "Australia"
+displayTuple tuple1String
+
+let tuple1Bool = Tuple.Create true
+displayTuple tuple1Bool
+
+let tuple1Char = Tuple.Create 'a'
+displayTuple tuple1Char
+// The example displays the following output:
+// (3.456E-18)
+// (Australia)
+// (True)
+// (a)
+// </Snippet1>