katzchang

; 3.3.5

(define false #f)
(define true #t)

(define (celsius-fahrenheit-converter c f)
  (let ((u (make-connector))
	(v (make-connector))
	(w (make-connector))
	(x (make-connector))

katzchang

Steve Freeman氏とのペアプロ雑感

http://tddbc.doorkeeper.jp TDD Boot Camp 2013-07 -- TDDBC で、偶然にもロンドンから来日していたSteve Freeman氏を招くことができた。ちなみに本当に偶然の来日で、その日の夕方にご家族と隅田川の花火を見る予定だったらしい。貴重な時間である。

20分ほど講演していただき、さらに参加者と一緒にペアプロ課題に挑戦してもらった。しかもペアプロでっていう貴重な体験をさせてもらったので、そのことについてまとめたい。

Steve Freeman氏は書籍 "Growing Object-Oriented Software, Guided by Tests" （邦訳「実戦テスト駆動開発」）の共著者の一人で、Javaのモックフレームワーク "JMock"の開発者の一人。当然、自動販売機の課題にもJMockを駆使してモデリングしていただくことになった。

Start from the outside

katzchang

#!/usr/bin/env gosh

(use gauche.parseopt)
(use file.util)

(define (main args)
    (let-args (cdr args)
              ((help "h|help" => usage)
               (quiet "q|quiet" #f)
               (lag "l|lag=n" 600)

katzchang

<?php
/*
 * $ php sexp_encode.php | gosh -E"begin (write (read)) (write (read))" -E"exit"
 */

// TODO: symbolエスケープ?

function sexp_str_escape($str) {
  return addcslashes($str, "\"\\\n\r\f\t\0");
}

katzchang

.*
!.git*

katzchang

(define (deriv exp var)
  (cond ((number? exp) 0)
	((variable? exp)
	 (if (same-variable? exp var) 1 0))
	((sum? exp)
	 (make-sum (deriv (addend exp) var)
		   (deriv (augend exp) var)))
	((product? exp)
	 (make-sum
	   (make-product (multiplier exp)

katzchang

材料

• 薄力粉 56g
• 強力粉 20g
• バター 56g
• 卵液 117g
• 卵黄 95g
• バニラ原液 1g
• 牛乳 200ml
• 卵白 186g

katzchang

GOSH=/usr/local/bin/gosh
L=./gu.scm

test:
	$(GOSH) -l $(L) ./*test.scm

katzchang

package coderetreat

import org.scalatest.Assertions
import org.junit.Test

class GameOfLifeSuite extends Assertions {
  @Test def game_of_life() {
    assert(new Board(3, 4, Set()).toString === "000,000,000,000")
    assert(new Board(3, 4, Set((0, 0), (0, 1), (1, 1))).toString === "110,010,000,000")

katzchang

public class HelloCarry {
  static <E1, E2, E3> Func<E1, Func<E2, E3>> carry(final Func2<E1, E2, E3> f2) {
    return new Func<E1, Func<E2,E3>>() {
      @Override
      public Func<E2, E3> apply(final E1 e1) {
        return new Func<E2, E3>() {
          @Override
          public E3 apply(E2 e2) {
            return f2.apply(e1, e2);
          }};