forki

namespace CsharpMonads
{
    using System.Collections.Generic;
    using Xunit;

    public static class DictionaryExtension
    {
        public static Maybe<S> TryFind<T, S>(this Dictionary<T, S> dict, T key)
        {
            if (dict.ContainsKey(key))

forki

   public static class MaybeConcat
   {
         public static Maybe<T> Concat<T>(this Maybe<T> source1, Func<Maybe<T>> source2F)
        {
            return source1.IsNone ? source2F() : source1;
        }
    }

    public class HaskellLookupSample
    {

forki

    public class EnumerableLookupSample
    {
        private static readonly Dictionary<string, string> FullNamesDb =
            new Dictionary<string, string>
                {
                    { "Bill Gates", "[email protected]" },
                    { "Bill Clinton", "[email protected]" },
                    { "Michael Jackson", "[email protected]" }
                };

forki

type OptionBuilder() =

    member b.Delay(f) = f()

    member b.Return(x) =
        match x with
         | None -> None
         | Some r -> Some(r)

    member b.Bind(p,rest) =

forki

type OptionBuilder() =

    member b.Delay(f) = f()

    member b.Return(x) =
        match x with
        | None -> None
        | Some r -> Some(r)

    member b.Bind(p,rest) =

forki

module Server


type StartParams = 
    { TimeOut: int;
      Url: string; }

let startServer serverName startParams =
    printfn "%s %d" serverName startParams.TimeOut

forki

using System;

namespace Aperea.iCalendar
{
    public class Calendar
    {
        public void SetTime(DateTime dateTime)
        {
        }

forki

using System;

namespace Aperea.iCalendar
{
    public class Calendar
    {
        public void SetTime(DateTime dateTime)
        {
        }

forki

open System.Collections.Generic

type Box = int
type Sudoku = Box array array

let rows = id
let cols (sudoku:Sudoku) =
    sudoku
    |> Array.mapi (fun a row -> row |> Array.mapi (fun b cell -> sudoku.[b].[a]))

forki

<?xml version="1.0" encoding="utf-8"?>
<package xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <metadata xmlns="http://schemas.microsoft.com/packaging/2010/07/nuspec.xsd">
    <description>@description@</description>
    <id>@project@</id>
    <version>@build.number@</version>
    <authors>@authors@</authors>
    <owners>@authors@</owners>
    <language>en-US</language>
    <summary>@summary@</summary>