InvalidOperationException F# snippets (#7773)

Author: albert-du

snippets/fsharp/System/InvalidOperationException/Overview/Enumerable1.fs

@@ -0,0 +1,15 @@
+module Enumerable1
+
+// <Snippet6>
+open System
+open System.Linq
+
+let data = [| 1; 2; 3; 4 |]
+let average = 
+   data.Where(fun num -> num > 4).Average();
+printfn $"The average of numbers greater than 4 is {average}"
+// The example displays the following output:
+//    Unhandled Exception: System.InvalidOperationException: Sequence contains no elements
+//       at System.Linq.Enumerable.Average(IEnumerable`1 source)
+//       at <StartupCode$fs>.main()
+// </Snippet6>

snippets/fsharp/System/InvalidOperationException/Overview/Enumerable2.fs

@@ -0,0 +1,19 @@
+module Enumerable2
+
+// <Snippet7>
+open System
+open System.Linq
+
+let dbQueryResults = [| 1; 2; 3; 4 |]
+let moreThan4 = 
+    dbQueryResults.Where(fun num -> num > 4)
+
+if moreThan4.Any() then
+    printfn $"Average value of numbers greater than 4: {moreThan4.Average()}:"
+else
+    // handle empty collection
+    printfn "The dataset has no values greater than 4."
+
+// The example displays the following output:
+//       The dataset has no values greater than 4.
+// </Snippet7>

snippets/fsharp/System/InvalidOperationException/Overview/Enumerable3.fs

@@ -0,0 +1,18 @@
+module Enumerable3
+
+// <Snippet8>
+open System
+open System.Linq
+
+let dbQueryResults = [| 1; 2; 3; 4 |]
+
+let firstNum = dbQueryResults.First(fun n -> n > 4)
+
+printfn $"The first value greater than 4 is {firstNum}"
+
+// The example displays the following output:
+//    Unhandled Exception: System.InvalidOperationException:
+//       Sequence contains no matching element
+//       at System.Linq.Enumerable.First[TSource](IEnumerable`1 source, Func`2 predicate)
+//       at <StartupCode$fs>.main()
+// </Snippet8>

snippets/fsharp/System/InvalidOperationException/Overview/Enumerable4.fs

@@ -0,0 +1,18 @@
+module Enumerable4
+
+// <Snippet9>
+open System
+open System.Linq
+
+let dbQueryResults = [| 1; 2; 3; 4 |]
+
+let firstNum = dbQueryResults.FirstOrDefault(fun n -> n > 4)
+
+if firstNum = 0 then
+    printfn "No value is greater than 4."
+else
+    printfn $"The first value greater than 4 is {firstNum}"
+
+// The example displays the following output:
+//       No value is greater than 4.
+// </Snippet9>

snippets/fsharp/System/InvalidOperationException/Overview/Enumerable5.fs

@@ -0,0 +1,19 @@
+module Enumerable5
+
+// <Snippet10>
+open System
+open System.Linq
+
+let dbQueryResults = [| 1; 2; 3; 4 |]
+
+let singleObject = dbQueryResults.Single(fun value -> value > 4)
+
+// Display results.
+printfn $"{singleObject} is the only value greater than 4"
+
+// The example displays the following output:
+//    Unhandled Exception: System.InvalidOperationException:
+//       Sequence contains no matching element
+//       at System.Linq.Enumerable.Single[TSource](IEnumerable`1 source, Func`2 predicate)
+//       at <StartupCode$fs>.main()
+// </Snippet10>

snippets/fsharp/System/InvalidOperationException/Overview/Enumerable6.fs

@@ -0,0 +1,22 @@
+module Enumerable6
+
+// <Snippet11>
+open System
+open System.Linq
+
+let dbQueryResults = [| 1; 2; 3; 4 |]
+
+let singleObject = dbQueryResults.SingleOrDefault(fun value -> value > 2)
+
+if singleObject <> 0 then
+    printfn $"{singleObject} is the only value greater than 2"
+else
+    // Handle an empty collection.
+    printfn "No value is greater than 2"
+    
+// The example displays the following output:
+//    Unhandled Exception: System.InvalidOperationException:
+//       Sequence contains more than one matching element
+//       at System.Linq.Enumerable.SingleOrDefault[TSource](IEnumerable`1 source, Func`2 predicate)
+//       at <StartupCode$fs>.main()
+// </Snippet11>

snippets/fsharp/System/InvalidOperationException/Overview/Iterating1.fs

@@ -0,0 +1,23 @@
+module Iterating1
+
+// <Snippet1>
+open System
+
+let numbers = ResizeArray [| 1; 2; 3; 4; 5 |]
+for number in numbers do
+    let square = Math.Pow(number, 2) |> int
+    printfn $"{number}^{square}"
+    printfn $"Adding {square} to the collection...\n"
+    numbers.Add square
+
+// The example displays the following output:
+//    1^1
+//    Adding 1 to the collection...
+//
+//
+//    Unhandled Exception: System.InvalidOperationException: Collection was modified
+//       enumeration operation may not execute.
+//       at System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
+//       at System.Collections.Generic.List`1.Enumerator.MoveNextRare()
+//       at <StartupCode$fs>.main()
+// </Snippet1>

snippets/fsharp/System/InvalidOperationException/Overview/Iterating2.fs

@@ -0,0 +1,37 @@
+module Iterating2
+
+// <Snippet2>
+open System
+open System.Collections.Generic
+
+let numbers = ResizeArray [| 1; 2; 3; 4; 5 |]
+
+let upperBound = numbers.Count - 1
+for i = 0 to upperBound do
+    let square = Math.Pow(numbers[i], 2) |> int
+    printfn $"{numbers[i]}^{square}"
+    printfn $"Adding {square} to the collection...\n"
+    numbers.Add square
+
+printfn "Elements now in the collection: "
+for number in numbers do
+    printf $"{number}    "
+// The example displays the following output:
+//    1^1
+//    Adding 1 to the collection...
+//
+//    2^4
+//    Adding 4 to the collection...
+//
+//    3^9
+//    Adding 9 to the collection...
+//
+//    4^16
+//    Adding 16 to the collection...
+//
+//    5^25
+//    Adding 25 to the collection...
+//
+//    Elements now in the collection:
+//    1    2    3    4    5    1    4    9    16    25
+// </Snippet2>

snippets/fsharp/System/InvalidOperationException/Overview/Iterating3.fs

@@ -0,0 +1,25 @@
+module Iterating3
+
+// <Snippet3>
+open System
+open System.Collections.Generic
+
+let numbers = ResizeArray [| 1; 2; 3; 4; 5 |]
+let temp = ResizeArray()
+
+// Square each number and store it in a temporary collection.
+for number in numbers do
+    let square = Math.Pow(number, 2) |> int
+    temp.Add square
+
+// Combine the numbers into a single array.
+let combined = Array.zeroCreate<int> (numbers.Count + temp.Count)
+Array.Copy(numbers.ToArray(), 0, combined, 0, numbers.Count)
+Array.Copy(temp.ToArray(), 0, combined, numbers.Count, temp.Count)
+
+// Iterate the array.
+for value in combined do
+    printf $"{value}    "
+// The example displays the following output:
+//       1    2    3    4    5    1    4    9    16    25
+// </Snippet3>

snippets/fsharp/System/InvalidOperationException/Overview/List_Sort1.fs

@@ -0,0 +1,27 @@
+module List_Sort1
+
+// <Snippet12>
+type Person(firstName: string, lastName: string) =
+    member val FirstName = firstName with get, set
+    member val LastName = lastName with get, set
+
+let people = ResizeArray()
+
+people.Add(Person("John", "Doe"))
+people.Add(Person("Jane", "Doe"))
+people.Sort()
+for person in people do
+    printfn $"{person.FirstName} {person.LastName}"
+// The example displays the following output:
+//    Unhandled Exception: System.InvalidOperationException: Failed to compare two elements in the array. --->
+//       System.ArgumentException: At least one object must implement IComparable.
+//       at System.Collections.Comparer.Compare(Object a, Object b)
+//       at System.Collections.Generic.ArraySortHelper`1.SwapIfGreater(T[] keys, IComparer`1 comparer, Int32 a, Int32 b)
+//       at System.Collections.Generic.ArraySortHelper`1.DepthLimitedQuickSort(T[] keys, Int32 left, Int32 right, IComparer`1 comparer, Int32 depthLimit)
+//       at System.Collections.Generic.ArraySortHelper`1.Sort(T[] keys, Int32 index, Int32 length, IComparer`1 comparer)
+//       --- End of inner exception stack trace ---
+//       at System.Collections.Generic.ArraySortHelper`1.Sort(T[] keys, Int32 index, Int32 length, IComparer`1 comparer)
+//       at System.Array.Sort[T](T[] array, Int32 index, Int32 length, IComparer`1 comparer)
+//       at System.Collections.Generic.List`1.Sort(Int32 index, Int32 count, IComparer`1 comparer)
+//       at <StartupCode$fs>.main()
+// </Snippet12>