Skip to content

Instantly share code, notes, and snippets.

View ijrussell's full-sized avatar

Ian Russell ijrussell

71 followers · 0 following
View GitHub Profile
@ijrussell
ijrussell / Gzip compression
Created February 19, 2022 22:17
open System
open System.IO
open System.IO.Compression
open System.Text
type CompressionValue = {
Value: string
Size: int
}
@ijrussell
ijrussell / TransportTycoon2.fs
Last active March 7, 2022 08:46
F# solutions for https://github.com/Softwarepark/exercises/blob/master/transport-tycoon_21.md
open System.IO
type Tree<'T> =
|Branch of 'T * Tree<'T> seq
|Leaf of 'T
type Waypoint = { Location:string; Route:string list; Distance:int }
type Connection = { From:string; To:string; Distance:int }
@ijrussell
ijrussell / TransportTycoon2.fs
Last active March 6, 2022 20:32
F# soultion for https://github.com/Softwarepark/exercises/blob/master/transport-tycoon_22.md
open System.IO
type Tree<'T> =
|Branch of 'T * Tree<'T> seq
|Leaf of 'T
type Waypoint = { Location:string; Route:(string * decimal) list; Duration:decimal }
type Connection = { From:string; To:string; Distance:int; Speed:int }
@ijrussell
ijrussell / football-results.fsx
Created April 27, 2022 20:17
type Result = Win | Lose | Draw
type TableRow = { Id:string; Wins:int; Draws:int; Losses:int; Points:int }
let results = [
"A,B,win"
"C,D,lose"
"B,D,draw"
"C,A,win"
"B,C,lose"
"D,A,win"
@ijrussell
ijrussell / shortest-route-golang
Last active August 16, 2022 12:27
Solving https://github.com/trustbit/exercises/blob/master/transport-tycoon_21.md with Go
package main
import (
"bufio"
"fmt"
"os"
"reflect"
"strconv"
"strings"
)
@ijrussell
ijrussell / shortest-route-dijkstra.fsx
Created September 5, 2022 08:29
open System.IO
type Connection = {
Start: string
Finish: string
Distance: int
}
type Waypoint = {
Location: string
@ijrussell
ijrussell / BehaviourTest.cs
Created August 13, 2023 14:38
Simple BDD {Based on a 2009 blog post from Garry Shutler]
namespace TestsXunit.Framework;
public abstract class BehaviourTest
{
protected void Setup()
{
Given();
When();
}
@ijrussell
ijrussell / LoanApplication.fsx
Created August 31, 2023 16:49
F# version of the core processing part of https://github.com/ijrussell/LendingPlatform
#r "nuget: FsToolkit.ErrorHandling"
open System
open FsToolkit.ErrorHandling
type LoanAmount = LoanAmount of int
type AssetValue = AssetValue of int
type CreditScore = CreditScore of int16
type LoanToValueRate = LoanToValueRate of byte
@ijrussell
ijrussell / GetTimeAtSolarAzimuth.fsx
Last active September 17, 2023 13:45
// Based on original at https://gist.github.com/houstonhaynes/fcc26d0265d1572fbdb093af88da926a
#r "nuget: CoordinateSharp"
open System
open CoordinateSharp
let find_Closest_TimeUnit =
let el = EagerLoad(EagerLoadType.Celestial)