habib-sadullaev

open System.Numerics

module NumericLiteralG =
    let inline FromZero () : #INumber<'a> = 'a.Zero 
    let inline FromOne () : #INumber<'a> = 'a.One
    let inline FromInt32 (number: int) : #INumber<'a> = 'a.CreateChecked(number)

let (*) x y : #IMultiplyOperators<'a, 'a, 'a>  = 'a.op_Multiply(x, y) 
let (/) x y : #IDivisionOperators<'a, 'a, 'a> = 'a.op_Division(x, y) 

habib-sadullaev

type IRef = 
    abstract member Ref: unit -> byref<int>

type C() =
    let mutable num = 10
    member _.Get() = num
    member _.Ref() = &num 

    interface IRef with
        member this.Ref() = &this.Ref() 

habib-sadullaev

using System;
using System.Linq;
using System.Linq.Expressions;

static class _ 
{
    static void Deconstruct(this BinaryExpression x,
                            out ExpressionType type, 
                            out Expression left, 
                            out Expression right)

habib-sadullaev

using System;
using System.Text.Json;

var value = new { name = default(string)! };

//method #1
value = (dynamic)JsonSerializer.Deserialize("""{ "name": "xyz" }""", value.GetType())!;
Console.WriteLine(value);

//method #1

habib-sadullaev

#r "nuget:AWSSDK.SecurityToken"

open Amazon
open Amazon.Runtime.CredentialManagement
open Amazon.SecurityToken
open Amazon.SecurityToken.Model

let awsCredentials profile =
    let chain = CredentialProfileStoreChain()
    match chain.TryGetAWSCredentials profile with

habib-sadullaev

#r "nuget: FSharp.Interop.Dynamic"

open System
open System.Collections
open System.Linq.Expressions
open System.Linq
open FSharp.Interop.Dynamic

// query.Select(selector)
let select (selector: LambdaExpression) (query: IQueryable) : IQueryable =

habib-sadullaev

type dlist<'a> = ('a list -> 'a list) list

let dmap f (xs: dlist<'a>) : dlist<'a> = List.map f :: xs

let drun (xs: dlist<'a>) = List.foldBack (<|) xs []

let inline cons x xs = x :: xs

let drange from count =
    let rec loop curr acc : dlist<int> =