naush

(ns gtp.example.console
  (:refer-clojure :exclude [name])
  (:require [gtp.core :as gtp] :reload)
  (:gen-class))

(defn board []
  (let [size (atom 19)]
    {:set-size #(reset! size %1)
     :get-size @size}))

naush

(defmacro- make-command [name block]
  `(defn ~(symbol name) [& args#]
    (if args# (~block args#) (~block))))

naush

# install Firefox, or any other browser under testing
apt-get install firefox
# install Xvfb
apt-get install xvfb
# boost X11 server
Xvfb :99 -ac -screen 0 1024x768x16
# set up environmental variable
export DISPLAY=:99
# launch Firefox
firefox

naush

# add this code to "features/support/env.rb"
if ENV['HEADLESS'] == 'true'
  require 'headless'

  headless = Headless.new
  headless.start

  at_exit do
    headless.destroy
  end

naush

#!/bin/bash -x
source ~/.bashrc
rvm use 1.9.2@project
bundle install
rake db:migrate
rake spec
HEADLESS=true rake cucumber

naush

# !
return (a > b)

# !!
if (a > b)
  return true
else
  return false

# !!!

naush

(def gray 0)
(def black 1)
(def white 2)

(defn board [size] (vec (repeat * size size) gray))

naush

(defn out-of-bound [point size] (or (< point 0) (> point (dec size))))

naush

(defn gray? [board point size] (= gray (nth board point)))

naush

(defn ally? [board point color] (= color (nth board point)))

(defn new-ally? [board point color ally]
  (and (ally? board point color) (not (.contains ally point))))

(defn find-neighbors [point size]
  (let [north (- point size)
        east  (inc point)
        south (+ point size)
        west  (dec point)]