isaacabraham

module LinqOo =
    /// Selects a value into another shape.
    type ISelectable<'a, 'b> =
        abstract Select: 'a -> 'b

    /// Filters a value.
    type IFilterable<'a> =
        abstract Filter: 'a -> bool

    type ICollectable<'a, 'b> =

isaacabraham

source https://api.nuget.org/v3/index.json
framework: net8.0
storage: none
nuget Microsoft.ApplicationInsights.Profiler.AspNetCore

isaacabraham

// A generic Record
type Person<'T> = {
    Name: string
    Age: int
    Singleton: 'T -> 'T list
}

// Creating a value with an "open" generic argument (?)
let personRec : Person<'T> = {
    Name = "Isaac"

isaacabraham

open System

let s = "Card 1: 41 48 83 86 17 | 83 86  6 31 17  9 48 53"

// challenge - split above into values we can reason about e.g. 
type Card = {
    Id : int // 1
    Winning : int list // 41 48 83 86 17
    Ticket : int list // 83 86  6 31 17  9 48 53
}

isaacabraham

module List =
    let partitionMap partitioner =
        let rec loop (acc1, acc2) = function
            | [] -> List.rev acc1, List.rev acc2
            | x::xs ->
                match partitioner x with
                | Choice1Of2 y -> loop (y::acc1, acc2) xs
                | Choice2Of2 y -> loop (acc1, y::acc2) xs
        loop ([], [])

isaacabraham

// F# version of https://twitter.com/gsferreira/status/1516827091127394309/

open System
open System.IO

type PotentialProcessingError = StringMissing | StringTooShort

let application (str: string) =
    match str with
    | str when str.Length < 5 -> Error StringTooShort

isaacabraham

open System

/// A train carriage can have a number of different features...
type Feature = Quiet | Wifi | Toilet

/// Multiple classes
type CarriageClass = First | Second

/// Carriages can be either for passengers or the buffet cart
type CarriageKind =

isaacabraham

namespace ClassLibrary1;
public static class LinqExtensions
{
    public static IEnumerable<TOut> Choose<T, TOut>(this IEnumerable<T> input, Func<T, TOut?> chooser)
    {
        foreach (var i in input)
        {
            var c = chooser(i);
            if (c is { } q)
            {

isaacabraham

#r "nuget:FSCheck"

open FsCheck
open System

type TurnDirection = Left | Right
type MoveDirection = Forward | Back
type Direction = N | S | E | W
type Coordinates = { X : int; Y : int }
type State =

isaacabraham

module Decorators =
    type FnDetails<'T> = { Name : string; Args : 'T }
    type DecoratedFunction<'a, 'b> = FnDetails<'a> -> 'b

    /// Logs the arguments and result of any function call.
    let logger next details =
        fooLogger.LogInformation ("Inside {Name}, Args {Args}", details.Name, details.Args)
        let result = next details
        fooLogger.LogInformation ("Result was {Result}.", $"%A{result}")
        result