Gab-km

class FizzBuzzExtractor[T](f: T => Boolean){
  def unapply(t: T) = f(t)
}

val FizzBuzz = new FizzBuzzExtractor[Int](_ % 15 == 0)
object Fizz extends FizzBuzzExtractor[Int](_ % 3 == 0)
object Buzz extends FizzBuzzExtractor[Int](_ % 5 == 0)

object FizzBuzzRunner {
  def run(num: Int) = num match {

Gab-km

これは、 @kmizu さんの「初学者向けの Scala Tips」を勝手に F# にポートした記事です。

Gab-km

// Interface
type ICallable<'a, 'b> =
    abstract member callback: 'a -> 'b

// concrete class
type Callable<'a, 'b>(f: 'a -> 'b) =
    interface ICallable<'a, 'b> with
        member self.callback x = f x

// computation builder

Gab-km

[System.Reflection.Assembly]::LoadFile('/path/to/MongoDB.Driver.dll')
[System.Reflection.Assembly]::LoadFile('/path/to/MongoDB.Bson.dll')

$client = New-Object MongoDB.Driver.MongoClient("mongodb://hostname")
$server = $client.GetServer()
$db = $server.GetDatabase("test")
$user = $db.GetCollection("User")

foreach($doc in $user.FindAll() {
  [System.Console]::WriteLine($doc)

Gab-km

type Message = string * AsyncReplyChannel<string>

let agent = new MailboxProcessor<Message>(fun inbox ->
    let rec loop count =
        async {
            System.Threading.Thread.Sleep(1000) // something busy
            let! msg, replyChannel = inbox.Receive()
            printfn "%s" msg
            replyChannel.Reply(msg + msg)
            return! loop (count + 1)

Gab-km

namespace FsCheck.Ext

module Test =
    open System
    open FsCheck
    open FsCheck.Arb

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

Gab-km

タイトル

Erlang ユーザーガイドから始めよう

バージョン

6.2

原文

Erlang -- Getting Started with Erlang User's Guide

原文の著作権者

Ericsson AB.

Gab-km

def add_dict(this, other):
    """2つの dict の和を取る関数(キー重複は後勝ち)
    @this ベースとなる dict オブジェクト
    @other 追加される dict オブジェクト
    @return 2つの dict を合成した dict 
    """
    result = this.copy()
    for key in other:
        result[key] = other[key]
    return result

Gab-km

class Adder implements Applyable {
    @override
    public int func(int a, int b) {
        return a + b;
    }
}

Gab-km

// TVar -> TResult
interface Applyable<TVar, TResult> {
    public abstract TResult apply(TVar variable);
}