esehara

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

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

ゲームの流れ

準備

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

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

esehara

#lang racket

(require rackunit)

(define (qsort l)
  (if (null? l)
      l
      (qsort2 (car l) (cdr l) '() '())))

(define (qsort2 p l left right)

esehara

# 99というダイスゲームとは
#
# ルールとしては、まず目標値を決める。この目標値は33から99となる。
# そして、各プレイヤーはサイコロを5個振る。このサイコロの5個の出目を
# 足し算・引き算・掛け算・割り算を使って、目標値まで近づける。
# 最も目標値に近いプレイヤーが勝つ、というルールのゲーム。
#
# 詳しくは『ダイスゲーム百科』024pを参考にすること。

class Game

esehara

  (defun java-button ()
    (interactive)
    (progn
      (start-process
       "java-button-process"
       nil
       "aplay"
       (concat (getenv "HOME") "/Archive/" "java.wav"))
      ;; (newline) ???
      ))

esehara

require 'gnuplot'

class GameField

  def initialize
    @first = Random.rand(100...400)
    @last = @first + Random.rand(50..100)
  end
  
  def test(u, t)

esehara

package main

import (
    "fmt"
    "net/http"
    "net/url"
    "io/ioutil"
)

func getRSS(s string) string {

esehara

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

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),