Matsushima, Kazuhiro Gab-km

## tryFinallySample.fs
type TFBuilder() =
    member self.TryFinally (x, f) =
        f ()
        x
    member self.Delay f = f ()
    member self.Bind (x, f) = f x
    member self.Return x = x

let tfb = TFBuilder()

## DropAndRefundTest.groovy
import spock.lang.*

class DropAndRefundTest extends spock.lang.Specification {
    def setup(){

    }

    @Unroll
    def "自販機に #money を投入できる"() {
        setup:

## exam.fs
open System

type Result =
    | Perfect
    | Excellent
    | Good
    | Bad

let exam yourScore =
    if yourScore = 100 then Perfect

## Imperative.fs
module Imperative

open System
open System.Text
open System.Security.Cryptography

let generateKeyFromPassword password keySize blockSize =
    //パスワードから共有キーと初期化ベクタを作成する
    //saltを決める
    let salt = Encoding.UTF8.GetBytes "saltは必ず8バイト以上"

## MultiParadigm.fs
module MultiParadigm

open System
open System.Text
open System.Security.Cryptography

let generateKeyFromPassword password keySize blockSize =
    //パスワードから共有キーと初期化ベクタを作成する
    //saltを決める
    let salt = Encoding.UTF8.GetBytes "saltは必ず8バイト以上"

## TupleTest.html
<!DOCTYPE html>
<html>
  <head>
    <title>Tuple test</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <script type="text/javascript" src="tuple.js"></script>
  </head>
  <body>
    <div id="output" />
  </body>

## OptionTest.html
<!DOCTYPE html>
<html>
  <head>
    <title>Option test</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <script type="text/javascript" src="option.js"></script>
  </head>
  <body>
    <div id="output" />
  </body>

## myJsUnit.js
function write(message) {
    document.getElementById("output").innerHTML += message + "<br />";
}

function assertEquals(expected, actual) {
    if (expected == actual) {
        write("OK");
    } else {
	var text = "expected = [" + expected.toString()
	    + "], but actual = [" + actual.toString() + "]."

## hgrc
# hgrc
# hg-now is the simple alias inspired by git-now.
# (http://d.hatena.ne.jp/sinsoku/20101208/1291770514)
# and it is for Windows environments.
# if you use some Unix base operating systems, like Linux distributions, BSDs or Macs,
# please hack it in your environment.

[alias]
# create a temporary commit.
now = ! hg commit -m "[from now] %date% %time%"

## gist:1601627
# -*- coding: utf-8 -*-
import random
import datetime

left_brows = ['´', '｀', '']
left_eyes = ['・', '^', '；', '>', '']
mouths = ['ω', '∀', 'ρ', '_', 'Д', 'д', '']
right_eyes = ['・', '^', '；', '<', '']
right_brows = ['´', '｀', '']
	type TFBuilder() =
	member self.TryFinally (x, f) =
	f ()
	x
	member self.Delay f = f ()
	member self.Bind (x, f) = f x
	member self.Return x = x

	let tfb = TFBuilder()
	import spock.lang.*

	class DropAndRefundTest extends spock.lang.Specification {
	def setup(){

	}

	@Unroll
	def "自販機に #money を投入できる"() {
	setup:
	open System

	type Result =
	\| Perfect
	\| Excellent
	\| Good
	\| Bad

	let exam yourScore =
	if yourScore = 100 then Perfect
	module Imperative

	open System
	open System.Text
	open System.Security.Cryptography

	let generateKeyFromPassword password keySize blockSize =
	//パスワードから共有キーと初期化ベクタを作成する
	//saltを決める
	let salt = Encoding.UTF8.GetBytes "saltは必ず8バイト以上"
	module MultiParadigm

	open System
	open System.Text
	open System.Security.Cryptography

	let generateKeyFromPassword password keySize blockSize =
	//パスワードから共有キーと初期化ベクタを作成する
	//saltを決める
	let salt = Encoding.UTF8.GetBytes "saltは必ず8バイト以上"
	<!DOCTYPE html>
	<html>
	<head>
	<title>Tuple test</title>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<script type="text/javascript" src="tuple.js"></script>
	</head>
	<body>
	<div id="output" />
	</body>
	function write(message) {
	document.getElementById("output").innerHTML += message + "<br />";
	}

	function assertEquals(expected, actual) {
	if (expected == actual) {
	write("OK");
	} else {
	var text = "expected = [" + expected.toString()
	+ "], but actual = [" + actual.toString() + "]."
	# hgrc
	# hg-now is the simple alias inspired by git-now.
	# (http://d.hatena.ne.jp/sinsoku/20101208/1291770514)
	# and it is for Windows environments.
	# if you use some Unix base operating systems, like Linux distributions, BSDs or Macs,
	# please hack it in your environment.

	[alias]
	# create a temporary commit.
	now = ! hg commit -m "[from now] %date% %time%"
	# -- coding: utf-8 --
	import random
	import datetime

	left_brows = ['´', '｀', '']
	left_eyes = ['・', '^', '；', '>', '']
	mouths = ['ω', '∀', 'ρ', '_', 'Д', 'д', '']
	right_eyes = ['・', '^', '；', '<', '']
	right_brows = ['´', '｀', '']