Skip to content

Instantly share code, notes, and snippets.

View 004.re
type results = {
ys: list(list(int)),
xs: array(int),
};
let sum_xs_ys = (line, r) => {
let y_list = Str.split(Str.regexp(" +"), line) |> List.map(int_of_string);
let y_simple_sum = List.fold_left((+), 0, y_list);
{
ys: r.ys @ [List.map((s) => y_simple_sum - s, y_list)],
@esehara
esehara / secrethitler.markdown
Last active April 30, 2017 04:30
シークレットヒトラー 簡易インスト
View secrethitler.markdown

シークレット・ヒトラー 簡易インスト

厳密なものを読みたければここへ。

シークレット・ヒトラーって何?

いわゆる正体隠匿系と呼ばれる、自分の身分を隠してプレイするタイプのゲームです。このゲームでは、人狼でいうところの「狼」がファシスト(赤)、「村人」がリベラル(青)と考えるとわかりやすいです。

具体的な流れはどういう感じ?

@esehara
esehara / wordwolf.markdown
Last active April 22, 2017 02:15
ワード人狼・えせはらVer 草稿
View wordwolf.markdown

ワード人狼・えせはらVer ルール

ゲームの流れ

準備

GMから、お題にそったワードが渡されます。多くの人は同じワードですが、一人だけ違うワードを渡されてしまいます。このとき、一人だけワードを渡された側が通常の人狼でいうところの「人狼側」になります。

そして、GMが、そのワードに関するお題を発表します。

@esehara
esehara / qsort.rkt
Last active October 16, 2017 02:41
クイックソート(『はじめてのLisp関数型プログラミング』(p.120))
View qsort.rkt
#lang racket
(require rackunit)
(define (qsort l)
(if (null? l)
l
(qsort2 (car l) (cdr l) '() '())))
(define (qsort2 p l left right)
@esehara
esehara / 99.rb
Created December 22, 2016 19:16
99ソルバー
View 99.rb
# 99というダイスゲームとは
#
# ルールとしては、まず目標値を決める。この目標値は33から99となる。
# そして、各プレイヤーはサイコロを5個振る。このサイコロの5個の出目を
# 足し算・引き算・掛け算・割り算を使って、目標値まで近づける。
# 最も目標値に近いプレイヤーが勝つ、というルールのゲーム。
#
# 詳しくは『ダイスゲーム百科』024pを参考にすること。
class Game
@esehara
esehara / java-button.el
Created December 8, 2016 13:11
ジャバ
View java-button.el
(defun java-button ()
(interactive)
(progn
(start-process
"java-button-process"
nil
"aplay"
(concat (getenv "HOME") "/Archive/" "java.wav"))
;; (newline) ???
))
@esehara
esehara / golf.rb
Created October 13, 2016 07:10
砲台ゲーム
View golf.rb
require 'gnuplot'
class GameField
def initialize
@first = Random.rand(100...400)
@last = @first + Random.rand(50..100)
end
def test(u, t)
@esehara
esehara / file0.go
Created October 6, 2016 14:12
Goで簡単なエコーサーバーを作る ref: http://qiita.com/esehara@github/items/34f8675c61169da06d73
View file0.go
package main
import (
"fmt"
"net/http"
"net/url"
"io/ioutil"
)
func getRSS(s string) string {
@esehara
esehara / fish1.hs
Created October 6, 2016 01:36
ふぃしゅっしゅ数 Ver 1.0 Haskell Ver
View fish1.hs
ack_like 0 n f = f n
ack_like m 0 f = ack_like (m - 1) 1 f
ack_like m n f = ack_like (m - 1) (ack_like m (n - 1) f) f
s_func_conv f = \x -> ack_like x x f
s_conv (m, f) = ((g m), g)
where
g = s_func_conv f
ss_s2_conv s = \(m, f) -> (iterate s (m, f)) !! f(m)
@esehara
esehara / primegame.rb
Last active August 25, 2016 05:35
なんか上手くいかない Conway's PRIMEGAME
View primegame.rb
PRIMEGAME = [Rational(17, 91),
Rational(78, 85),
Rational(19, 51),
Rational(23, 38),
Rational(29, 33),
Rational(77, 29),
Rational(95, 23),
Rational(77, 19),
Rational(1, 17),
Rational(11, 13),