keithn

    public class Node<T> where T:IComparable
    {
        public T Value { get; private set; }
        public Node<T> Left { get; set; }
        public Node<T> Right { get; set; }
        public Node(T value)
        {
            Value = value;
        }

keithn

type Direction = North | South | East | West

type Position = { x: int; y: int }

type Walker = { facing: Direction; location: Position; history: Position list}

let rotateRight (d:Direction) = 
    match d with
    | North -> East
    | East -> South

keithn

module Day2
open System

let code = @"
LRRLLLRDRURUDLRDDURULRULLDLRRLRLDULUDDDDLLRRLDUUDULDRURRLDULRRULDLRDUDLRLLLULDUURRRRURURULURRULRURDLULURDRDURDRLRRUUDRULLLLLDRULDDLLRDLURRLDUURDLRLUDLDUDLURLRLDRLUDUULRRRUUULLRDURUDRUDRDRLLDLDDDLDLRRULDUUDULRUDDRLLURDDRLDDUDLLLLULRDDUDDUUULRULUULRLLDULUDLLLLURRLDLUDLDDLDRLRRDRDUDDDLLLLLRRLLRLUDLULLDLDDRRUDDRLRDDURRDULLLURLRDLRRLRDLDURLDDULLLDRRURDULUDUDLLLDDDLLRLDDDLLRRLLURUULULDDDUDULUUURRUUDLDULULDRDDLURURDLDLULDUDUDDDDD
RUURUDRDUULRDDLRLLLULLDDUDRDURDLRUULLLLUDUDRRUDUULRRUUDDURDDDLLLLRRUURULULLUDDLRDUDULRURRDRDLDLDUULUULUDDLUDRLULRUDRDDDLRRUUDRRLULUULDULDDLRLURDRLURRRRULDDRLDLLLRULLDURRLUDULDRDUDRLRLULRURDDRLUDLRURDDRDULUDLDLLLDRLRUDLLLLLDUDRDUURUDDUDLDLDUDLLDLRRDLULLURLDDUDDRDUDLDDUULDRLURRDLDLLUUDLDLURRLDRDDLLDLRLULUDRDLLLDRLRLLLDRUULUDLLURDLLUURUDURDDRDRDDUDDRRLLUULRRDRULRURRULLDDDUDULDDRULRLDURLUDULDLDDDLRULLULULUDLDDRDLRDRDLDULRRLRLRLLLLLDDDRDDULRDULRRLDLUDDDDLUDRLLDLURDLRDLDRDRDURRDUDULLLDLUDLDRLRRDDDRRLRLLULDRLRLLLLDUUURDLLULLUDDRLULRDLDLDURRRUURDUDRDLLLLLLDDDU

keithn

let isTriangle (x,y,z) = 
    x + y > z &&
    x + z > y &&
    y + z > x

let lineTo3Ints (line: string) = 
    let chunks = line.Split( [|" "|], StringSplitOptions.RemoveEmptyEntries )
    if (Seq.length chunks) <> 3 then None
    else

keithn

module Day4
open System
open System.Text.RegularExpressions

let input = @"
the text the puzzle gave me....
"

let (|Regex|_|) pattern input =
    let m = Regex.Match(input, pattern)

keithn

module Day5

open System
open System.Security.Cryptography
open System.Text

let input = @"reyedfim"

let bytes  (s:string) =  Encoding.ASCII.GetBytes(s)

keithn

import sys
width = 40
height = 10
Board = [[' ' for x in range(height)] for y in range(width)]

for i in range(height):
    Board[0][i] = '|'
    Board[width-1][i] = '|'

keithn

using System;
using System.Collections.Generic;
using System.IO;
using DemoDiary;
using Newtonsoft.Json;

namespace DemoDiary
{
    public class Diary
    {

keithn

  private static void Day3P1P2()
        {
            
            var data = File.ReadAllLines("Day3.txt");
            var fabric = new Dictionary<(int,int), List<int>>();
            foreach (var line in data)
            {
                var numbers = line.Split(new[] {'#', '@', ',', ':', 'x', ' '}, StringSplitOptions.RemoveEmptyEntries).Select(int.Parse).ToList();
                var id = numbers[0];
                var left = numbers[1];

keithn

CFGM
FGM
GM
HMNP
AEMNPW
EMNPW
MNPW