StachuDotNet

open System

type Choice = Rock | Scissors | Paper 
type RoundResult = WinRound | TieRound | LoseRound

let roundResult = function 
    | Rock, Rock     | Scissors, Scissors | Paper, Paper    -> TieRound
    | Rock, Scissors | Scissors, Paper    | Paper, Rock     -> WinRound
    | Rock, Paper    | Scissors, Rock     | Paper, Scissors -> LoseRound

StachuDotNet

public abstract class PersistentConnection
{
    public virtual void Initialize(IDependencyResolver resolver);

    public bool Authorize(IRequest request);

    protected virtual TraceSource Trace { get; } }

    protected IProtectedData ProtectedData { get; private set; }

StachuDotNet

type event = { text : string; minutes: double }

type exercise = { 
	text : string
	setNum : int
	setupTime : double
	setTime : double
	restTime : double
}

StachuDotNet

module CubeSolver

// Represent the state of a Rubik's Cube

type CubeState = 
    { EdgePositions   : int array
      EdgeFlips       : int array
      CornerPositions : int array
      CornerTwists    : int array }