ImaginaryDevelopment

// let devroot = Environment.ExpandEnvironmentVariables("%devroot%")
let debug = true

module Option =
    let ofNullOrEmpty =
        function
        | null -> None
        | "" -> None
        | x -> Some x

ImaginaryDevelopment

let fib x =
    (0,0)
    |> Seq.unfold(fun (a,b) ->
        match a,b with
        | 0, 0 -> Some(1, (0, 1))
        | _ ->
            let c = a + b
            Some(c, (b,c))
    )
    |> Seq.indexed

ImaginaryDevelopment

// https://www.reddit.com/r/ProgrammerHumor/comments/umbmlt/this_is_hurting_my_ego/

[
    "8809", 6
    "7111", 0
    "2172", 0
    "6666", 4
    "1111", 0
    "3213", 0
    "7662", 2

ImaginaryDevelopment

type Foo () =
    do
        printfn "I'm constructed"
    member x.Value
        with get() = 0
        and set (v:int) = invalidOp "Hello world!"
    interface IDisposable with
        member x.Dispose() =
            printfn "IDisposed!"
        

ImaginaryDevelopment

let inline tryParse f x =
    match f x with
    | true, v -> Some v
    | _ -> None
    
// this version does not compile:
//let (|Parse|_|) (str: string) : int option = tryParse Int32.TryParse str
let inline tryParseInt (x:string) = x |> tryParse Int32.TryParse

ImaginaryDevelopment

// from https://gist.github.com/ImaginaryDevelopment/952b3a9afc4f2fa3c4631d43f760748a
module GistTemplate.BReusable
open System
open System.Collections.Generic
open System.Diagnostics

let inline guardAgainstNull msg (o:obj) =
    if isNull o then
        nullArg msg
let (|GuardNull|) msg (x:'T) =

ImaginaryDevelopment

module ResizeArray =
    let init i f =
        Seq.init i f
        |> ResizeArray
    
let (|IsSeq|_|) (t:Type) = 
    t.GetInterfaces() |> Seq.choose(fun t ->
        if t.IsGenericType && t.GetGenericTypeDefinition() = typedefof<seq<_>> then Some("iseq",t.GenericTypeArguments) else None
    )
    |> Seq.tryHead

ImaginaryDevelopment

let logStep action =
    let res = action <| printf "%s... "
    printfn "Complete."
    res
type LoggingBuilder() =
    member this.Bind(x, f) =
        logStep x |> f
    member this.Zero() = ignore
    member this.Return(x) = x

ImaginaryDevelopment

  onNotifyAcknowledgedPositions() {

    const companyState = this.memberState;
    if (companyState &&
      companyState['BUY'] && companyState['SELL'] &&
      (isFalsy(companyState['BUY'].addedRequests) || companyState['BUY'].addedRequests.length === 0) &&
      (isFalsy(companyState['BUY'].updatedRequests) || companyState['BUY'].updatedRequests.length === 0) &&
      (isFalsy(companyState['BUY'].deletedRequests) || companyState['BUY'].deletedRequests.length === 0) &&
      (isFalsy(companyState['BUY'].addedComments) || companyState['BUY'].addedComments.length === 0) &&
      (isFalsy(companyState['BUY'].deletedComments) || companyState['BUY'].deletedComments.length === 0) &&

ImaginaryDevelopment

// hosts file lock of certain sites, and unlocking, while not interfering with other entries
// WIP

let winpath =
    "C:\\windows"
    // Util.GetPassword("WindowsPath")

if not <| Directory.Exists winpath then failwithf "Unable to locate path '%s'" winpath
let sites = [
    "discord.com"