MattMS

$ini -split "`n" | % -Begin {$HT = @{}} -End {$HT} -Process {$n, $v = $_ -split '='; $HT[$n] = $v}

MattMS

// Formula from https://en.wikipedia.org/wiki/Levenshtein_distance
let lev (a : string) (b : string) =
    let rec loop (a : char list) (b : char list) =
        match a, b with
        | a, [] -> a.Length
        | [], b -> b.Length
        | (aHead :: aTail), (bHead :: bTail) when aHead = bHead -> loop aTail bTail
        | (_ :: aTail), (_ :: bTail) -> 1 + List.min [loop aTail b ; loop a bTail ; loop aTail bTail]

    loop (List.ofSeq a) (List.ofSeq b)

MattMS

CREATE TABLE doc (k UUID PRIMARY KEY DEFAULT gen_random_uuid(), v JSONB NOT NULL);

INSERT INTO doc (v) VALUES ('{"ok": true}');

MattMS

dotnet --list-runtimes | %{if ($_ -match '^([^ ]+) (\d+\.\d+\.\d+) ') {[PSCustomObject]@{Name = $Matches[1]; Version = [version]$Matches[2]}}} | ? Version -gt ([version]"6.0.0")

MattMS

let allChars =
    Set.ofSeq
    <| seq {
        for c in (System.Char.MinValue) .. (System.Char.MaxValue) do
            if System.Char.IsControl(c) |> not then
                yield c
    }

let mostCommonPair (s: string) =
    s

MattMS

Function Global:Get-Now {
	$CI = New-Object System.Globalization.CultureInfo("en-AU")
	$Epoch = [DateTimeOffset]::UnixEpoch
	$Now = [DateTimeOffset]::Now
	$UnixDay = ($Now.UtcDateTime - $Epoch.UtcDateTime).Days
	$UnixDaySecond = [int]$Now.UtcDateTime.TimeOfDay.TotalSeconds
	$UnixSecond = $Now.ToUnixTimeSeconds()
	[PSCustomObject]@{
		DayOfYear = $Now.DayOfYear
		Global = $Now.UtcDateTime

MattMS

{
	"configurations": [
		{
			"args": [],
			"console": "internalConsole",
			"cwd": "${workspaceFolder}",
			"name": ".NET Core Launch (console)",
			"preLaunchTask": "build",
			"program": "${workspaceFolder}/bin/Debug/netcoreapp3.0/fsql.dll",
			"request": "launch",

MattMS

Debugging WPF application with VS Code

The following code is based on the SqueakyApp demo using Fabulous.XamarinForms

Files

The launch.json and tasks.json are placed inside the .vscode directory beside the sln file. These files are usually created by VS Code, but since there is not a .NET Framework option by default, you can choose the .NET Core options and edit the files after.

launch.json

MattMS

open System
open System.Drawing
open System.Windows.Forms

let addClickHandler click (button: Button) =
    button.Click.AddHandler (new EventHandler (click))
    button

let addControl (child: Control) (parent: Control) =
    parent.Controls.Add child

MattMS

open System
open System.Windows.Forms

let makeButton label click =
    let button = new Button()
    button.Text <- label
    let clickHandler = new EventHandler(click)
    button.Click.AddHandler clickHandler
    button