ghoseb

; Church Numerals in Clojure
;
; Church numerals use anonymous functions to represent numbers.
;
; ((zero f) x) -- returns x
; ((one f)  x) -- return (f x)
; ((two f)  x) -- return (f (f x))
; ...

(def zero (fn [f] (fn [x] x)))

ghoseb

;;; ghoseb.el -- My customisations in addition to ESK
;;; Author: Baishampayan Ghose <b.ghose@gmail.com>
;;; Time-stamp: "2009-08-01 01:44:30 ghoseb"

(require 'cl)

;;; ----------------------
;;; General customisations
;;; ----------------------
(set-scroll-bar-mode 'nil)

ghoseb

(ns redis-memo
  (:require redis)
  (:import (java.net URLEncoder)))

;; --------------------------------------------------------------------------------
;; Default connection params
;; --------------------------------------------------------------------------------

(def memo-server {:host "localhost" :port 6379 :db 14})

ghoseb

# log4j.properties

log4j.rootLogger = DEBUG, standard

log4j.appender.standard = org.apache.log4j.RollingFileAppender
log4j.appender.standard.File = logs/project.log
log4j.appender.standard.MaxFileSize=1MB
log4j.appender.standard.MaxBackupIndex=1

log4j.appender.standard.layout = org.apache.log4j.PatternLayout

ghoseb

(defn tests []
     [{:name 'suiteA
       :total 3
       :tests [{:name 'testA}
               {:name 'testB}
               {:name 'testC}]}
      {:name 'suiteB
       :total 3
       :tests [{:name 'testD}
               {:name 'testE}

ghoseb

(defn tests []
     [{:name 'suiteA
       :total 3
       :passed (promise)
       :failed (promise)
       :success (promise)
       :tests [{:name 'testA :success (promise)}
               {:name 'testB :success (promise)}
               {:name 'testC :success (promise)}]}
      {:name 'suiteB

ghoseb

;;; accounts.clj -- Accounts -*- Clojure -*-
;;; Time-stamp: "2010-05-04 11:17:53 ghoseb"
;;; Author: Baishampayan Ghose <bg@infinitelybeta.com>

(ns accounts)

(def *min-bal* 500)

(defstruct account
  :name

ghoseb

(ns test)

(defn try-times
  "Try executing a thunk `retries` times."
  [retries thunk]
  (if-let [res (try
                 [(thunk)]
                 (catch Exception e ; can be any exception
                   (when (zero? retries)
                     (throw e))))]

ghoseb

(ns pascal)

(defn next-row
  "Given one row, generate the next one."
  [row]
  (vec (map + (concat [0] row) (concat row [0]))))

(defn pascal
  "Generate an infinite lazy sequence of Pascal rows."
  []

ghoseb

(ns tetris.core
  (:import (java.awt Color Dimension BorderLayout)
    (javax.swing JPanel JFrame JOptionPane JButton JLabel)
    (java.awt.event KeyListener))
  (:use clojure.contrib.import-static deflayout.core
        clojure.contrib.swing-utils)
  (:gen-class))

(import-static java.awt.event.KeyEvent VK_LEFT VK_RIGHT VK_DOWN VK_UP VK_SPACE)