Mercurial > lasercutter
annotate src/clojureDemo/rlm.clj~ @ 1:6d9bdaf919f7
added clojureDemo source
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Fri, 20 Aug 2010 00:32:44 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@1 | 1 (ns clojureDemo.rlm |
| rlm@1 | 2 |
| rlm@1 | 3 (:refer-clojure :exclude [+ - / * |
| rlm@1 | 4 assoc conj dissoc empty get into seq |
| rlm@1 | 5 = < > <= >= zero? |
| rlm@1 | 6 ]) |
| rlm@1 | 7 |
| rlm@1 | 8 (:use [clojure.contrib.generic |
| rlm@1 | 9 arithmetic |
| rlm@1 | 10 collection |
| rlm@1 | 11 comparison |
| rlm@1 | 12 ]) |
| rlm@1 | 13 |
| rlm@1 | 14 (:use [clojure.contrib |
| rlm@1 | 15 accumulators |
| rlm@1 | 16 combinatorics |
| rlm@1 | 17 repl-utils |
| rlm@1 | 18 def |
| rlm@1 | 19 duck-streams |
| rlm@1 | 20 shell-out |
| rlm@1 | 21 import-static |
| rlm@1 | 22 lazy-seqs |
| rlm@1 | 23 logging |
| rlm@1 | 24 map-utils |
| rlm@1 | 25 math |
| rlm@1 | 26 mock |
| rlm@1 | 27 monads |
| rlm@1 | 28 ns-utils |
| rlm@1 | 29 ]) |
| rlm@1 | 30 |
| rlm@1 | 31 (:use [clojure.contrib.pprint :exclude [write]]) |
| rlm@1 | 32 |
| rlm@1 | 33 (:use [clojure.contrib.pprint.examples |
| rlm@1 | 34 hexdump |
| rlm@1 | 35 json |
| rlm@1 | 36 multiply |
| rlm@1 | 37 props |
| rlm@1 | 38 show-doc |
| rlm@1 | 39 xml |
| rlm@1 | 40 ]) |
| rlm@1 | 41 |
| rlm@1 | 42 (:import java.io.File) |
| rlm@1 | 43 |
| rlm@1 | 44 |
| rlm@1 | 45 |
| rlm@1 | 46 ) |
| rlm@1 | 47 |
| rlm@1 | 48 |
| rlm@1 | 49 |
| rlm@1 | 50 |
| rlm@1 | 51 |
| rlm@1 | 52 |
| rlm@1 | 53 |
| rlm@1 | 54 (defn rlm-extra-load [] |
| rlm@1 | 55 (use :reload-all |
| rlm@1 | 56 '[ clojureDemo |
| rlm@1 | 57 rlm |
| rlm@1 | 58 project-euler |
| rlm@1 | 59 ])) |
| rlm@1 | 60 |
| rlm@1 | 61 |
| rlm@1 | 62 (defn rlm-switch [] |
| rlm@1 | 63 (in-ns 'rlm) |
| rlm@1 | 64 (rlm-extra-load)) |
| rlm@1 | 65 |
| rlm@1 | 66 (defn switch-rlm [] |
| rlm@1 | 67 (rlm-switch)) |