akhansari

import * as assert from "assert";

/** Decider Pattern **/

type Transaction = {
    amount: number
    date: Date
}

type Deposited = Transaction & {

akhansari

namespace EsBankAccount.Account;

using Events = IReadOnlyCollection<IEvent>;

public record Transaction(decimal Amount, DateTime Date);

// events
public interface IEvent { } // used to mimic a discriminated union
public record Deposited(Transaction Transaction) : IEvent;
public record Withdrawn(Transaction Transaction) : IEvent;

akhansari

# open PowerShell legacy
# install https://scoop.sh
irm get.scoop.sh | iex

# add extras bucket
scoop bucket add extras

# install the new PowerShell
scoop install pwsh

akhansari

The OAuth Bible

I tried to make this as understandable as possible for any party reading it which means that the wording, references, and terminology used may not reflect that of a technical paper or resource. Excuse me if you may for I wish all to understand this, and not just those with a degree in understanding legal or technical jargon.

Created with love by Nijikokun @ Mashape, the team behing the OSS API management layer Kong, and Mashape Analytics for visualizing and monitoring API traffic.

---

Hey! Interested in simplifying the process to consume OAuth services like twitter, facebook, github, and thousands more? Check out Guardian, it was built with simplicity, security, and ease of use in mind, allowing you to consume OAuth in a single request.

akhansari

open System
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Http
open Microsoft.AspNetCore.Routing

type Item = { Id: int32; Name: string; Price: decimal }
let rnd = Random()

let getProducts () =
    [ for _ in 1..3 do { Id = rnd.Next 100; Name = "Blueberry"; Price = 10m } ]

akhansari

public string Hash(string str)
{
	return string.Join("", System.Security.Cryptography.SHA256.Create()
		.ComputeHash(System.Text.Encoding.UTF8.GetBytes(str)).Select(s => s.ToString("x2")));
}

akhansari

using System;
using System.Globalization;
using System.Linq;
using System.Text;

EqualsIgnoreCaseAndDiacritics("héLloṩ", "hellos"); // true

static string RemoveDiacritics(string str) => 
	str is null ? null :
		string.Concat(str

akhansari

module NinetyNineBottles.SongTests

open Xunit

[<Fact>]
let ``Verse 99`` () =
    let expected = "99 bottles of beer on the wall, 99 bottles of beer.
Take one down and pass it around, 98 bottles of beer on the wall."
    let verse = Song.One 99 |> Song.verses
    Assert.Equal(expected, verse)

akhansari

{
	"version": "2.0.0",
	"tasks": [
		{
			"label": "Hugo",
			"type": "shell",
			"command": "hugo serve",
			"group": "build",
			"isBackground": true,
			"problemMatcher": {

akhansari

// 1. pure, don't think about IO at all
module Domain =
    let add x y = x + y

// 2. think about IO but not its implementation
module App =
    let add (getX: unit -> Async<int32>) y =
        async {
            let! x = getX ()
            return Domain.add x y