System.Array F# snippets

samples/snippets/fsharp/VS_Snippets_CLR/Array_ConvertAll/fs/fs.fsproj

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

samples/snippets/fsharp/VS_Snippets_CLR/Array_ConvertAll/fs/source.fs

@@ -0,0 +1,38 @@
+// <Snippet1>
+open System
+open System.Drawing
+open System.Collections.Generic
+
+let pointFToPoint (pf: PointF) =
+    Point(int pf.X, int pf.Y)
+
+// Create an array of PointF objects.
+let apf =
+    [| PointF(27.8f, 32.62f)
+       PointF(99.3f, 147.273f)
+       PointF(7.5f, 1412.2f) |]
+
+// Display each element in the PointF array.
+printfn ""
+for p in apf do
+    printfn $"{p}"
+
+// Convert each PointF element to a Point object.
+let ap = Array.ConvertAll(apf, pointFToPoint)
+// let ap = Array.map pointFToPoint apf
+
+// Display each element in the Point array.
+printfn ""
+for p in ap do
+    printfn $"{p}"
+
+// This code example produces the following output:
+//     {X=27.8, Y=32.62}
+//     {X=99.3, Y=147.273}
+//     {X=7.5, Y=1412.2}
+//
+//     {X=27,Y=32}
+//     {X=99,Y=147}
+//     {X=7,Y=1412}
+
+// </Snippet1>

samples/snippets/fsharp/VS_Snippets_CLR/Array_FindEtAl/fs/fs.fsproj

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

samples/snippets/fsharp/VS_Snippets_CLR/Array_FindEtAl/fs/source.fs

@@ -0,0 +1,79 @@
+// <Snippet1>
+open System
+
+// Search predicate returns true if a string ends in "saurus".
+let endsWithSaurus (s: string) =
+    s.Length > 5 && s.Substring(s.Length - 6).ToLower() = "saurus"
+
+// Search predicate returns true if a string ends in "raptor".
+let endsWithRaptor (s: string) =
+    s.Length > 5 && s.Substring(s.Length - 6).ToLower() = "raptor"
+
+// Search predicate returns true if a string ends in "tops".
+let endsWithTops (s: string) =
+    s.Length > 3 && s.Substring(s.Length - 4).ToLower() = "tops"
+
+type DinoDiscoverySet =
+    { Dinosaurs: string [] }
+
+    member this.DiscoverAll() =
+        printfn ""
+        for dino in this.Dinosaurs do
+            printfn $"{dino}"
+
+    member this.DiscoverByEnding(ending: string) =
+        let dinoType =
+            match ending.ToLower() with
+            | "raptor" -> endsWithRaptor
+            | "tops" -> endsWithTops
+            | "saurus" | _ -> endsWithSaurus
+
+        Array.Exists(this.Dinosaurs, dinoType)
+        |> printfn "\nArray.Exists(dinosaurs, \"%s\"): %b" ending
+
+        Array.TrueForAll(this.Dinosaurs, dinoType)
+        |> printfn "\nArray.TrueForAll(dinosaurs, \"%s\"): %b" ending
+
+        Array.Find(this.Dinosaurs, dinoType)
+        |> printfn "\nArray.Find(dinosaurs, \"%s\"): %s" ending
+
+        Array.FindLast(this.Dinosaurs, dinoType)
+        |> printfn "\nArray.FindLast(dinosaurs, \"%s\"): %s" ending
+
+        printfn $"\nArray.FindAll(dinosaurs, \"{ending}\"):"
+        for dinosaur in Array.FindAll(this.Dinosaurs, dinoType) do
+            printfn $"{dinosaur}"
+
+let dinosaurs =
+    [| "Compsognathus"; "Amargasaurus"; "Oviraptor"
+       "Velociraptor"; "Deinonychus"; "Dilophosaurus"
+       "Gallimimus"; "Triceratops" |]
+
+let goMesozoic = { Dinosaurs = dinosaurs }
+
+goMesozoic.DiscoverAll()
+goMesozoic.DiscoverByEnding "saurus"
+
+
+// This code example produces the following output:
+//     Compsognathus
+//     Amargasaurus
+//     Oviraptor
+//     Velociraptor
+//     Deinonychus
+//     Dilophosaurus
+//     Gallimimus
+//     Triceratops
+//
+//     Array.Exists(dinosaurs, "saurus"): true
+//
+//     Array.TrueForAll(dinosaurs, "saurus"): false
+//
+//     Array.Find(dinosaurs, "saurus"): Amargasaurus
+//
+//     Array.FindLast(dinosaurs, "saurus"): Dilophosaurus
+//
+//     Array.FindAll(dinosaurs, "saurus"):
+//     Amargasaurus
+//     Dilophosaurus
+// </Snippet1>

samples/snippets/fsharp/VS_Snippets_CLR/Array_FindIndex/fs/FS.fsproj

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

samples/snippets/fsharp/VS_Snippets_CLR/Array_FindIndex/fs/source.fs

@@ -0,0 +1,45 @@
+// <Snippet1>
+open System
+
+// Search predicate returns true if a string ends in "saurus".
+let endsWithSaurus (s: string) =
+    s.Length > 5 && s.Substring(s.Length - 6).ToLower() = "saurus"
+
+let dinosaurs =
+    [| "Compsognathus"; "Amargasaurus"
+       "Oviraptor"; "Velociraptor"
+       "Deinonychus"; "Dilophosaurus"
+       "Gallimimus"; "Triceratops" |]
+
+printfn ""
+for dino in dinosaurs do
+    printfn $"{dino}"
+
+Array.FindIndex(dinosaurs, endsWithSaurus)
+|> printfn "\nArray.FindIndex(dinosaurs, EndsWithSaurus): %i"
+
+Array.FindIndex(dinosaurs, 2, endsWithSaurus)
+|> printfn "\nArray.FindIndex(dinosaurs, 2, EndsWithSaurus): %i"
+
+Array.FindIndex(dinosaurs, 2, 3, endsWithSaurus)
+|> printfn "\nArray.FindIndex(dinosaurs, 2, 3, EndsWithSaurus): %i"
+
+
+// This code example produces the following output:
+//
+//     Compsognathus
+//     Amargasaurus
+//     Oviraptor
+//     Velociraptor
+//     Deinonychus
+//     Dilophosaurus
+//     Gallimimus
+//     Triceratops
+//
+//     Array.FindIndex(dinosaurs, EndsWithSaurus): 1
+//
+//     Array.FindIndex(dinosaurs, 2, EndsWithSaurus): 5
+//
+//     Array.FindIndex(dinosaurs, 2, 3, EndsWithSaurus): -1
+
+// </Snippet1>

samples/snippets/fsharp/VS_Snippets_CLR/Array_FindLastIndex/fs/fs.fsproj

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

samples/snippets/fsharp/VS_Snippets_CLR/Array_FindLastIndex/fs/source.fs

@@ -0,0 +1,45 @@
+// <Snippet1>
+open System
+
+// Search predicate returns true if a string ends in "saurus".
+let endsWithSaurus (s: string) =
+    s.Length > 5 && s.Substring(s.Length - 6).ToLower() = "saurus"
+
+let dinosaurs =
+    [| "Compsognathus"; "Amargasaurus"
+       "Oviraptor"; "Velociraptor"
+       "Deinonychus"; "Dilophosaurus"
+       "Gallimimus"; "Triceratops" |]
+
+printfn ""
+for dino in dinosaurs do
+    printfn $"{dino}"
+
+Array.FindLastIndex(dinosaurs, endsWithSaurus)
+|> printfn "\nArray.FindLastIndex(dinosaurs, EndsWithSaurus): %i"
+
+Array.FindLastIndex(dinosaurs, 4, endsWithSaurus)
+|> printfn "\nArray.FindLastIndex(dinosaurs, 4, EndsWithSaurus): %i"
+
+Array.FindLastIndex(dinosaurs, 4, 3, endsWithSaurus)
+|> printfn "\nArray.FindLastIndex(dinosaurs, 4, 3, EndsWithSaurus): %i"
+
+
+// This code example produces the following output:
+//
+//     Compsognathus
+//     Amargasaurus
+//     Oviraptor
+//     Velociraptor
+//     Deinonychus
+//     Dilophosaurus
+//     Gallimimus
+//     Triceratops
+//
+//     Array.FindLastIndex(dinosaurs, EndsWithSaurus): 5
+//
+//     Array.FindLastIndex(dinosaurs, 4, EndsWithSaurus): 1
+//
+//     Array.FindLastIndex(dinosaurs, 4, 3, EndsWithSaurus): -1
+
+// </Snippet1>

samples/snippets/fsharp/VS_Snippets_CLR/Array_IndexOf/fs/fs.fsproj

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

samples/snippets/fsharp/VS_Snippets_CLR/Array_IndexOf/fs/source.fs

@@ -0,0 +1,42 @@
+// <Snippet1>
+open System
+
+let dinosaurs =
+    [| "Tyrannosaurus"
+       "Amargasaurus"
+       "Mamenchisaurus"
+       "Brachiosaurus"
+       "Deinonychus"
+       "Tyrannosaurus"
+       "Compsognathus" |]
+
+printfn ""
+for dino in dinosaurs do
+    printfn $"{dino}"
+
+Array.IndexOf(dinosaurs, "Tyrannosaurus")
+|> printfn "\nArray.IndexOf(dinosaurs, \"Tyrannosaurus\"): %i"
+
+Array.IndexOf(dinosaurs, "Tyrannosaurus", 3)
+|> printfn "\nArray.IndexOf(dinosaurs, \"Tyrannosaurus\", 3): %i"
+
+Array.IndexOf(dinosaurs, "Tyrannosaurus", 2, 2)
+|> printfn "\nArray.IndexOf(dinosaurs, \"Tyrannosaurus\", 2, 2): %i"
+
+// This code example produces the following output:
+//
+//    Tyrannosaurus
+//    Amargasaurus
+//    Mamenchisaurus
+//    Brachiosaurus
+//    Deinonychus
+//    Tyrannosaurus
+//    Compsognathus
+//    
+//    Array.IndexOf(dinosaurs, "Tyrannosaurus"): 0
+//
+//    Array.IndexOf(dinosaurs, "Tyrannosaurus", 3): 5
+//
+//    Array.IndexOf(dinosaurs, "Tyrannosaurus", 2, 2): -1
+
+// </Snippet1>

samples/snippets/fsharp/VS_Snippets_CLR/Array_LastIndexOf/fs/fs.fsproj

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

samples/snippets/fsharp/VS_Snippets_CLR/Array_LastIndexOf/fs/source.fs

@@ -0,0 +1,42 @@
+// <Snippet1>
+open System
+
+let dinosaurs = 
+    [| "Tyrannosaurus"
+       "Amargasaurus"
+       "Mamenchisaurus"
+       "Brachiosaurus"
+       "Deinonychus"
+       "Tyrannosaurus"
+       "Compsognathus" |]
+
+printfn ""
+for dino in dinosaurs do
+    printfn $"{dino}"
+
+Array.LastIndexOf(dinosaurs, "Tyrannosaurus")
+|> printfn "\nArray.LastIndexOf(dinosaurs, \"Tyrannosaurus\"): %i"
+
+Array.LastIndexOf(dinosaurs, "Tyrannosaurus", 3)
+|> printfn "\nArray.LastIndexOf(dinosaurs, \"Tyrannosaurus\", 3): %i"
+
+Array.LastIndexOf(dinosaurs, "Tyrannosaurus", 4, 4)
+|> printfn "\nArray.LastIndexOf(dinosaurs, \"Tyrannosaurus\", 4, 4): %i"
+
+// This code example produces the following output:
+//    
+//    Tyrannosaurus
+//    Amargasaurus
+//    Mamenchisaurus
+//    Brachiosaurus
+//    Deinonychus
+//    Tyrannosaurus
+//    Compsognathus
+//    
+//    Array.LastIndexOf(dinosaurs, "Tyrannosaurus"): 5
+//
+//    Array.LastIndexOf(dinosaurs, "Tyrannosaurus", 3): 0
+//
+//    Array.LastIndexOf(dinosaurs, "Tyrannosaurus", 4, 4): -1
+
+// </Snippet1>

samples/snippets/fsharp/VS_Snippets_CLR/Array_Sort2IntIntIComparer/fs/fs.fsproj

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