Skip to content

Instantly share code, notes, and snippets.

Matsushima, Kazuhiro Gab-km

Block or report user

Report or block Gab-km

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@Gab-km
Gab-km / fake_undefined.fs
Created Aug 6, 2013
Haskell の undefined の真似事
View fake_undefined.fs
let undefined _ = failwith "undefined"
let hoge (x : string) : int = undefined()
@Gab-km
Gab-km / IOSample.fs
Last active Dec 17, 2015
人様の作品をいじっているだけです
View IOSample.fs
open System
//============================================
// IOモナド
//============================================
module IO =
type IO<'a> = IO of (unit -> 'a)
type IOBuilder() =
member this.Bind (IO x, f) = f (x())
@Gab-km
Gab-km / sequencialProgramming_head.rst
Last active Dec 17, 2015
公式チュートリアルである "Getting Started with Erlang User's Guide" の翻訳 - Sequential Programming
View sequencialProgramming_head.rst
@Gab-km
Gab-km / introduction_head.rst
Last active Dec 17, 2015
公式チュートリアルである "Getting Started with Erlang User's Guide" の翻訳 - Introduction
View introduction_head.rst
@Gab-km
Gab-km / ConsolePrinter.fs
Created Dec 15, 2015
何かのコード
View ConsolePrinter.fs
module ConsolePrinter =
open System.Text
open System.ComponentModel
[<EditorBrowsable(EditorBrowsableState.Never)>]
let private bit mask b =
b &&& mask = mask
[<EditorBrowsable(EditorBrowsableState.Never)>]
let private bit0 = bit 0b00000001uy
@Gab-km
Gab-km / indentGuidelineWithFSharp.rst
Created Mar 18, 2013
「F# のインデントガイドライン」を読んで、自分のインデントルールを書いてみた。
View indentGuidelineWithFSharp.rst

「F# のインデントガイドライン」に寄せて

今朝、 F# のインデントガイドライン という記事がアップされてました。大変興味深い内容だったんですが、ちょっと時間がなくて反応ができなかったんで、今やってしまおうと思います。

今回の概要としては、単純に「僕はこんなインデントルールでやってるよ!」という差分を紹介しよう、というものです。そのため、思想の一致を見るルールについては特に取り上げないこととします。

インデントの基本ルール

@Gab-km
Gab-km / gifts.fs
Created Dec 15, 2015
某所のアレをやってみた
View gifts.fs
type Family = Blair | Smith | Kelly | Tavares | Chen | Singh
type Person = { First: string; Last: Family }
let blair's first = { First = first; Last = Blair }
let smith's first = { First = first; Last = Smith }
let kelly's first = { First = first; Last = Kelly }
let tavares' first = { First = first; Last = Tavares }
let chen's first = { First = first; Last = Chen }
let singh's first = { First = first; Last = Singh }
@Gab-km
Gab-km / HttpStatus.fs
Last active Dec 14, 2015 — forked from anonymous/HttpStatus.fs
httpstatus コマンドで、HTTP のステータスコードをすばやくしらべる!
View HttpStatus.fs
type HttpStatus =
{ Code: string; Message: string }
override self.ToString () = sprintf "%s %s" self.Code self.Message
let httpStatus code message = { Code = code; Message = message }
let httpStatusList =[
httpStatus "100" "Continue";
httpStatus "101" "Switching Protocols";
httpStatus "102" "Processing";
@Gab-km
Gab-km / papylon_doc.ja.rst
Last active Dec 8, 2015
ぱぴろん非公式ドキュメント
View papylon_doc.ja.rst

ぱぴろん非公式ドキュメント

ぱぴろんとは?

ぱぴろん(Papylon)は、満たすべき性質(property)を記述することでテストケースを自動生成する Python 用テスティングツールです。いわゆる"QuickCheck"系の流れを汲み、 FsCheckScalaCheck の影響を強く受けています。テストしたい対象の振る舞うべき性質を記述して実行すると、テストケースをランダムに生成して実行し、性質が成り立つかどうかを確認します。

簡単な例

@Gab-km
Gab-km / msgpack_sample.d
Created Dec 9, 2012
#127 「MessagePack InterLanguage」のサンプルコード
View msgpack_sample.d
import std.stdio;
import std.stream;
import std.socket;
import std.typecons;
import msgpack;
void main()
{
communicateWithPythonClient();
You can’t perform that action at this time.