yukitos

  <PropertyGroup>
    <!-- snip -->
    <TypeScriptToolsVersion>1.0</TypeScriptToolsVersion>
  </PropertyGroup>
  <Target Name="BeforeBuild">
    <MSBuild.ExtensionPack.FileSystem.File TaskAction="Replace" RegexPattern="&lt;dependentAssembly&gt;([\s]+.)&lt;assemblyIdentity name=&quot;FSharp\.Core&quot; publicKeyToken=&quot;b03f5f7f11d50a3a&quot; culture=&quot;neutral&quot; \/&gt;([\s\S]+?)&lt;\/dependentAssembly&gt;" RegexOptionList="IgnoreCase|Singleline" Replacement="&lt;dependentAssembly&gt;&#xD;&#xA;        &lt;assemblyIdentity name=&quot;FSharp.Core&quot; publicKeyToken=&quot;b03f5f7f11d50a3a&quot; culture=&quot;neutral&quot; /&gt;&#xD;&#xA;        &lt;bindingRedirect oldVersion=&quot;0.0.0.0-$(TargetFSharpCoreVersion)&quot; newVersion=&quot;$(TargetFSharpCoreVersion)&quot;/&gt;&#xD;&#xA;      &lt;/dependentAssembly&gt;" Files="web.config" />
    <ItemGroup>
      <TSFiles Include="@(None);@(TypeScriptCompile)" Condition=" '%(Extension)' == '.ts' " />
    </ItemGroup>
    <Exec Command="&quot;$(PROGRAMFI

yukitos

function makeNum(n, f) {
  if (f == null) { return n; }
  else { return f(n); }
}
function five(f) {
  return makeNum(5, f);
}
function seven(f) {
  return makeNum(7, f);
}

yukitos

open System.Windows.Forms

// Copied from: http://social.msdn.microsoft.com/Forums/ja-JP/d5f23c87-b8d5-4c95-9293-3239f70caf94/f-first-class-events-and-cli-standards?forum=fsharpgeneral

type FunctionWrapper<'args>(f:obj -> 'args -> unit) =
  member x.Invoke(sender:obj, args) =
    f sender args

module Event =
  let filter (pred:'args->bool) (ev:IEvent<'del,'args>) =

yukitos

open System
open System.Reflection

[<AttributeUsage(AttributeTargets.All, AllowMultiple = true)>]
type MyAttribute() =
    inherit Attribute()

// MyAttributeを継承しているのでAllowMultipleがtrueになっているはず。。。
type MyDerivedAttribute() =
    inherit MyAttribute()

yukitos

var msi = new ActiveXObject("WindowsInstaller.Installer");
var msiOpenDatabaseModeReadOnly = 0;

var db = msi.OpenDatabase("test.msi", msiOpenDatabaseModeReadOnly);
var view = db.OpenView("SELECT * FROM Property WHERE Property = 'ProductCode'");
view.Execute();
for (var r = view.Fetch(); r != null; r = view.Fetch()) {
  WScript.Echo(r.StringData(1) + "=" + r.StringData(2));
}
view.Close();

yukitos

    <!-- (snip) -->
    <GridViewColumn Header="Result" DisplayMemberBinding="{Binding Result}">
        <GridViewColumn.CellTemplate>
            <DataTemplate>
                <TextBlock Text="{Binding}">
                    <TextBlock.Style>
                        <Style TargetType="{x:Type TextBlock}">
                            <Style.Triggers>
                                <MultiDataTrigger>
                                    <MultiDataTrigger.Conditions>

yukitos

internal static class DateTimeUtil
{
    public static DateTime Min(params DateTime[] values)
    {
        if (values == null)
            throw new ArgumentNullException("values");

        var comparer = new DateTimeComparer();
        Array.Sort<DateTime>(values, comparer);
        return values[0];

yukitos

let values = [ 1;2;3;2;3;1 ]
let f y x =
    if x = y then Choice2Of2 1
    else if x < y then Choice1Of2 2
    else Choice2Of2 3

let ``all values are Choice1Of2`` = 
    values
    |> List.map (f 4)
let sequence1 =

yukitos

namespace FsCheck.Ext
 
module Test =
    open System
    open FsCheck
    open FsCheck.Arb

    type JapaneseChar = char
    
    let japaneseChar (s: string) : JapaneseChar =

yukitos

### Keybase proof

I hereby claim:

  * I am yukitos on github.
  * I am yukitos (https://keybase.io/yukitos) on keybase.
  * I have a public key whose fingerprint is 2257 CD30 012D 6739 B948  271A 6BBD 7DCE 7766 C7DE

To claim this, I am signing this object: