IndexOutOfRangeException F# snippets (#7771)

Author: albert-du

snippets/fsharp/System/IndexOutOfRangeException/Overview/Uninit1.fs

@@ -0,0 +1,14 @@
+module Uninit1
+
+// <Snippet10>
+let values1 = [| 3; 6; 9; 12; 15; 18; 21 |]
+let values2 = Array.zeroCreate<int> 6
+
+// Assign last element of the array to the new array.
+values2[values1.Length - 1] <- values1[values1.Length - 1];
+// The example displays the following output:
+//       Unhandled Exception:
+//       System.IndexOutOfRangeException:
+//       Index was outside the bounds of the array.
+//       at <StartupCode$fs>.main@()
+// </Snippet10>

snippets/fsharp/System/IndexOutOfRangeException/Overview/foreach1.fs

@@ -0,0 +1,22 @@
+module foreach1
+
+// <Snippet7>
+open System
+
+let populateArray items maxValue =
+    let rnd = Random()
+    [| for i = 0 to items - 1 do
+        rnd.Next(0, maxValue + 1) |]
+
+// Generate array of random values.
+let values = populateArray 5 10
+// Display each element in the array.
+for value in values do
+    printf $"{values[value]}   "
+
+// The example displays output like the following:
+//    6   4   4
+//    Unhandled Exception: System.IndexOutOfRangeException:
+//    Index was outside the bounds of the array.
+//       at <StartupCode$fs>.main@()
+// </Snippet7>

snippets/fsharp/System/IndexOutOfRangeException/Overview/foreach2.fs

@@ -0,0 +1,19 @@
+module foreach2
+
+// <Snippet8>
+open System
+
+let populateArray items maxValue =
+    let rnd = Random()
+    [| for i = 0 to items - 1 do
+        rnd.Next(0, maxValue + 1) |]
+
+// Generate array of random values.
+let values = populateArray 5 10
+// Display each element in the array.
+for value in values do
+    printf $"{value}   "
+    
+// The example displays output like the following:
+//        10   6   7   5   8
+// </Snippet8>

snippets/fsharp/System/IndexOutOfRangeException/Overview/fs.fsproj

@@ -0,0 +1,18 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="length1.fs" />
+    <Compile Include="length2.fs" />
+    <Compile Include="Uninit1.fs" />
+    <Compile Include="negative1.fs" />
+    <Compile Include="negative2.fs" />
+    <Compile Include="nonzero1.fs" />
+    <Compile Include="nonzero2.fs" />
+    <Compile Include="foreach1.fs" />
+    <Compile Include="foreach2.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/IndexOutOfRangeException/Overview/length1.fs

@@ -0,0 +1,16 @@
+module length1
+
+// <Snippet3>
+let characters = ResizeArray()
+characters.InsertRange(0, [| 'a'; 'b'; 'c'; 'd'; 'e'; 'f' |])
+
+for i = 0 to characters.Count do
+    printf $"'{characters[i]}'    "
+// The example displays the following output:
+//    'a'    'b'    'c'    'd'    'e'    'f'
+//    Unhandled Exception:
+//    System.ArgumentOutOfRangeException:
+//    Index was out of range. Must be non-negative and less than the size of the collection.
+//    Parameter name: index
+//       at <StartupCode$fs>.main@()
+// </Snippet3>

snippets/fsharp/System/IndexOutOfRangeException/Overview/length2.fs

@@ -0,0 +1,11 @@
+module length2
+
+// <Snippet4>
+let characters = ResizeArray()
+characters.InsertRange(0, [| 'a'; 'b'; 'c'; 'd'; 'e'; 'f' |])
+
+for i = 0 to characters.Count - 1 do
+    printf $"'{characters[i]}'    "
+// The example displays the following output:
+//        'a'    'b'    'c'    'd'    'e'    'f'
+// </Snippet4>

snippets/fsharp/System/IndexOutOfRangeException/Overview/negative1.fs

@@ -0,0 +1,42 @@
+module negative1
+
+// <Snippet5>
+open System
+
+let numbers = ResizeArray()
+
+let showValues startValue =
+    // Create a collection with numeric values.
+    if numbers.Count = 0 then
+        numbers.AddRange [| 2..2..22 |]
+
+    // Get the index of a startValue.
+    printfn $"Displaying values greater than or equal to {startValue}:"
+    let startIndex = numbers.IndexOf startValue
+    
+    // Display all numbers from startIndex on.
+    for i = startIndex to numbers.Count - 1 do
+        printf $"    {numbers[i]}"
+
+let startValue =
+    let args = Environment.GetCommandLineArgs()
+    if args.Length < 2 then
+        2
+    else
+        match Int32.TryParse args[1] with
+        | true, v -> v
+        | _ -> 2
+
+showValues startValue
+
+// The example displays the following output if the user supplies
+// 7 as a command-line parameter:
+//    Displaying values greater than or equal to 7:
+//
+//    Unhandled Exception: System.ArgumentOutOfRangeException:
+//    Index was out of range. Must be non-negative and less than the size of the collection.
+//    Parameter name: index
+//       at System.Collections.Generic.List`1.get_Item(Int32 index)
+//       at Example.ShowValues(Int32 startValue)
+//       at <StartupCode$fs>.main@()
+// </Snippet5>

snippets/fsharp/System/IndexOutOfRangeException/Overview/negative2.fs

@@ -0,0 +1,38 @@
+module negative2
+
+// <Snippet6>
+open System
+open System.Collections.Generic
+
+let numbers = new List<int>()
+
+let showValues startValue =
+    // Create a collection with numeric values.
+    if numbers.Count = 0 then
+        numbers.AddRange [| 2..2..22 |]
+
+    // Get the index of startValue.
+    let startIndex = numbers.IndexOf startValue
+    if startIndex < 0 then
+        printfn $"Unable to find {startValue} in the collection."
+    else
+        // Display all numbers from startIndex on.
+        printfn $"Displaying values greater than or equal to {startValue}:"
+        for i = startIndex to numbers.Count - 1 do
+            printf $"    {numbers[i]}"
+
+let startValue =
+    let args = Environment.GetCommandLineArgs()
+    if args.Length < 2 then
+        2
+    else
+        match Int32.TryParse args[1] with
+        | true, v -> v
+        | _ -> 2
+
+showValues startValue
+
+// The example displays the following output if the user supplies
+// 7 as a command-line parameter:
+//      Unable to find 7 in the collection.
+// </Snippet6>

snippets/fsharp/System/IndexOutOfRangeException/Overview/nonzero1.fs

@@ -0,0 +1,24 @@
+module nonzero1
+
+// <Snippet1>
+open System
+
+let values = 
+    Array.CreateInstance(typeof<int>, [| 10 |], [| 1 |])
+let mutable value = 2
+// Assign values.
+for i = 0 to values.Length - 1 do
+    values.SetValue(value, i)
+    value <- value * 2
+
+// Display values.
+for i = 0 to values.Length - 1 do
+    printf $"{values.GetValue i}    "
+
+// The example displays the following output:
+//    Unhandled Exception:
+//    System.IndexOutOfRangeException: Index was outside the bounds of the array.
+//       at System.Array.InternalGetReference(Void* elemRef, Int32 rank, Int32* pIndices)
+//       at System.Array.SetValue(Object value, Int32 index)
+//       at <StartupCode$fs>.main@()
+// </Snippet1>

snippets/fsharp/System/IndexOutOfRangeException/Overview/nonzero2.fs

@@ -0,0 +1,19 @@
+module nonzero2
+
+// <Snippet2>
+open System
+
+let values = 
+    Array.CreateInstance(typeof<int>, [| 10 |], [| 1 |])
+let mutable value = 2
+// Assign values.
+for i = values.GetLowerBound 0 to values.GetUpperBound 0 do
+    values.SetValue(value, i)
+    value <- value * 2
+
+// Display values.
+for i = values.GetLowerBound 0 to values.GetUpperBound 0 do
+    printf $"{values.GetValue i}    "
+// The example displays the following output:
+//        2    4    8    16    32    64    128    256    512    1024
+// </Snippet2>