Allow LINQ optimizations for FirstOrNone/LastOrNone

Author: tautropfli

Funcky.Test/Extensions/EnumerableExtensions/FirstSingleLastOrNoneTest.cs

@@ -1,5 +1,7 @@
 #pragma warning disable SA1010 // StyleCop support for collection expressions is missing
 using System.Collections;
+using Funcky.Test.TestUtils;
+using Xunit.Sdk;
 
 namespace Funcky.Test.Extensions.EnumerableExtensions;
 
@@ -24,6 +26,17 @@ public void GivenAnEnumerableSingleOrNoneGivesTheCorrectOption(List<int> valueEn
         ExpectedSingleOrNoneBehaviour(valueEnumerable, () => referenceEnumerable.SingleOrNone().Match(none: false, some: True));
     }
 
+    [Fact]
+    public void DoesNotEnumerateListsWhenCalledWithoutPredicate()
+    {
+        var list = new FailOnEnumerateListWrapper<string>(["foo"]);
+        _ = list.FirstOrNone();
+        _ = list.LastOrNone();
+
+        // SingleOrNone does not specialize for `Select`ed lists.
+        Assert.Throws<XunitException>(() => _ = list.SingleOrNone());
+    }
+
     public static TheoryData<List<int>, List<string>> ValueReferenceEnumerables()
         => new()
         {

Funcky.Test/TestUtils/FailOnEnumerateCollectionWrapper.cs

@@ -0,0 +1,25 @@
+using System.Collections;
+using Xunit.Sdk;
+
+namespace Funcky.Test.TestUtils;
+
+internal class FailOnEnumerateCollectionWrapper<T>(ICollection<T> collection) : ICollection<T>
+{
+    public bool IsReadOnly => true;
+
+    public int Count => collection.Count;
+
+    public IEnumerator<T> GetEnumerator() => throw new XunitException("Should not be enumerated");
+
+    IEnumerator IEnumerable.GetEnumerator() => GetEnumerator();
+
+    public void Add(T item) => throw new NotSupportedException();
+
+    public void Clear() => throw new NotSupportedException();
+
+    public bool Contains(T item) => collection.Contains(item);
+
+    public void CopyTo(T[] array, int arrayIndex) => collection.CopyTo(array, arrayIndex);
+
+    public bool Remove(T item) => throw new NotSupportedException();
+}

Funcky.Test/TestUtils/FailOnEnumerateListWrapper.cs

@@ -0,0 +1,16 @@
+namespace Funcky.Test.TestUtils;
+
+internal sealed class FailOnEnumerateListWrapper<T>(IList<T> list) : FailOnEnumerateCollectionWrapper<T>(list), IList<T>
+{
+    public T this[int index]
+    {
+        get => list[index];
+        set => throw new NotSupportedException();
+    }
+
+    public int IndexOf(T item) => list.IndexOf(item);
+
+    public void Insert(int index, T item) => throw new NotSupportedException();
+
+    public void RemoveAt(int index) => throw new NotSupportedException();
+}

Funcky/Extensions/EnumerableExtensions/FirstOrNone.cs

@@ -9,7 +9,9 @@ public static partial class EnumerableExtensions
     [Pure]
     public static Option<TSource> FirstOrNone<TSource>(this IEnumerable<TSource> source)
         where TSource : notnull
-        => source.FirstOrNone(True);
+        => source
+            .Select(Option.Some)
+            .FirstOrDefault();
 
     /// <summary>
     /// Returns the first element of the sequence as an <see cref="Option{T}" /> that satisfies a condition or a <see cref="Option{T}.None" /> value if no such element is found.

Funcky/Extensions/EnumerableExtensions/LastOrNone.cs

@@ -9,7 +9,9 @@ public static partial class EnumerableExtensions
     [Pure]
     public static Option<TSource> LastOrNone<TSource>(this IEnumerable<TSource> source)
         where TSource : notnull
-        => source.LastOrNone(True);
+        => source
+            .Select(Option.Some)
+            .LastOrDefault();
 
     /// <summary>
     /// Returns the last element of a sequence that satisfies a condition as an <see cref="Option{T}" />  or a <see cref="Option{T}.None" /> value if no such element is found.

Funcky/Monads/Option/OptionExtensions.cs

@@ -1,6 +1,5 @@
 using System.ComponentModel;
 
-#pragma warning disable RS0026
 namespace Funcky.Monads;
 
 public static partial class OptionExtensions