This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; 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))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; 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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns redis-memo | |
(:require redis) | |
(:import (java.net URLEncoder))) | |
;; -------------------------------------------------------------------------------- | |
;; Default connection params | |
;; -------------------------------------------------------------------------------- | |
(def memo-server {:host "localhost" :port 6379 :db 14}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn tests [] | |
[{:name 'suiteA | |
:total 3 | |
:tests [{:name 'testA} | |
{:name 'testB} | |
{:name 'testC}]} | |
{:name 'suiteB | |
:total 3 | |
:tests [{:name 'testD} | |
{:name 'testE} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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))))] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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." | |
[] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
OlderNewer