otf

  let (|FormParams|) (stream:Stream) =
      readText stream |> HttpUtility.ParseQueryString |> nameValueCollections2List

otf

open System

type World<'a> = 'a [,]

let tryGet ar x y = 
  try Some <| Array2D.get ar x y
  with e -> None

let countAlive = List.collect Option.toList >> List.filter ((=) true) >> List.length

otf

open Microsoft.FSharp.Compiler.CodeDom
open System.Reflection
open System.CodeDom.Compiler

type EvalResult<'a> =
| CompileError of CompilerError seq
| RuntimeError of exn
| Success of 'a

let eval args expr =

otf

        [Test]
        public void Eitherに関数を適用_途中で失敗する関数()
        {
            var safeParse = FuncUtil.Either<string, int>(int.Parse);
            var m = (Either<Exception, string>)Either.Right("hoge");
            var result = from result1 in m
                         from result2 in safeParse(result1)
                         select result2;

            Assert.That(result.Match(l => true, r => false), Is.True);

otf

        [Test]
        public void Maybe関数()
        {
            var safeParse = FuncUtil.Maybe<string, int>(int.Parse);
            Assert.That(safeParse("123"), Is.EqualTo(new Option<int>(123)));
            Assert.That(safeParse("ababa"), Is.EqualTo(Option<int>.None));
        }

otf

namespace WpfTypeProvider

open System
open System.Reflection
open Samples.FSharpPreviewRelease2011.ProvidedTypes
open Microsoft.FSharp.Core.CompilerServices
open Microsoft.FSharp.Quotations
open Xaml
open System.Linq.Expressions

otf

let inline readValue< ^T when ^T : (static member TryParse : string -> bool * ^T)> name =
  let rec readValue() =
    seq {
      printf"input %s: " name
      let str = Console.ReadLine ()
      let success, value = (^T: (static member TryParse : string -> bool * ^T) str)
      (* TryParse <-　このTryParseを型パラメータの型のスタティックメソッドとして呼び出したい *) 
  
      if success 
      then yield value