battermann

module Git =
    open System
    open System.Diagnostics

    let private runCommand cmd args =
        let startInfo = new ProcessStartInfo()
        startInfo.FileName <- cmd
        startInfo.Arguments <- args
        startInfo.UseShellExecute <- false
        startInfo.RedirectStandardOutput <- true

battermann

public static class CondictionalsExtensions
{
    public static Tuple<bool, T> If<T>(this T src, Predicate<T> p)
    {
        return p(src)
            ? Tuple.Create(true, src)
            : Tuple.Create(false, src);
    }

    public static Tuple<bool, T, R> Then<T, R>(this Tuple<bool, T> src, Func<T, R> f)

battermann

static class Program
{
    static void Main(string[] args)
    {
        var list = new List<int> {4, 5, 4, 7, 9, 1, 6, 1, 0, -99, 10000, 3, 2};

        var sorted = list.QuickSort();

        Console.WriteLine(String.Join(", ", sorted));
        // output: -99, 0, 1, 1, 2, 3, 4, 4, 5, 6, 7, 9, 10000

battermann

using System.Collections.Generic;

namespace TicTacToe
{
    public enum Player
    {
        PlayerX,
        PlayerO
    }

battermann

open System

// -----------------------------------------------------------
// Domain
// -----------------------------------------------------------

module GameDomain =

    type Dice = One | Two | Three | Four | Five | Six

battermann

import Text.ParserCombinators.Parsec (char, many1, string, choice, try, parse)
import Text.Parsec.Prim (parserReturn, parserFail, ParsecT)
import Data.Functor
import Data.Functor.Identity
import Data.Either
import Test.Hspec

sat :: String -> (a -> Bool) -> ParsecT s u m a -> ParsecT s u m a
sat msg predicate parser = parser >>= (\x -> if predicate x then parserReturn x else parserFail msg)

battermann

db scripts

CREATE TABLE [dbo].[UniqueIdentifier]
(
	[Typ] NVARCHAR(50) NOT NULL PRIMARY KEY,
	[CurrentMaxId] NVARCHAR(max) NOT NULL
)

battermann

// The NUnit and Chessie Nuget packages are required for this
// To install NUnit and Chessie run the following commands from the Package Manager Console
// PM> Install-Package NUnit -Version 2.6.4
// PM> Install-Package Chessie

using System;
using System.Text.RegularExpressions;
using Chessie.ErrorHandling;
using Chessie.ErrorHandling.CSharp;
using Microsoft.FSharp.Core;

battermann

using System.Windows;

namespace PropertyToobsevable
{
    public partial class App : Application
    {
        private void Application_Startup(object sender, StartupEventArgs e)
        {
            var vm = new MainWindowViewModel();
            var mainWindow = new MainWindow { DataContext = vm };

battermann

using System;
using System.Collections.Generic;
using NUnit.Framework;
using System.Linq;

namespace function_composition_in_csharp
{
    // The NUnit Nuget package is required for this
    // To install NUnit, run the following command in the Package Manager Console
    // PM> Install-Package NUnit -Version 2.6.4