nobutaka

#!/bin/bash

LEFT=${6}
RIGHT=${7}
TMPLEFT="/tmp/${LEFT##*/}.$$"
TMPRIGHT="/tmp/${RIGHT##*/}.$$"

cp "$LEFT" "$TMPLEFT"
cp "$RIGHT" "$TMPRIGHT"

nobutaka

(use 'clojure.test)

; Green or Red
(defn gor [summary]
  (if (successful? summary)
    (print (str (char 27) "[32m" "succeeded\n" (char 27) "[m"))
    (print (str (char 27) "[31m" "failed\n" (char 27) "[m")))
  summary)

nobutaka

;;;
;;; Scheme version of smallpt.
;;; see http://www.kevinbeason.com/smallpt/
;;;


(define pi 3.141592653589793238462643383279)


;;;