1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/douglas_adams.clj	Tue Oct 18 01:17:49 2011 -0700
     1.3 @@ -0,0 +1,20 @@
     1.4 +(ns coderloop.douglas-adams
     1.5 +  (:refer-clojure :only [])
     1.6 +  (:require rlm.ns-rlm rlm.light-base))
     1.7 +(rlm.ns-rlm/ns-clone rlm.light-base)
     1.8 +
     1.9 +(use '[clojure [string :only [trim blank? split]]])
    1.10 +
    1.11 +
    1.12 +
    1.13 +(defn brute-force-life [coll]
    1.14 +  (dorun (map println (take-while (comp not (partial = 42)) coll))))
    1.15 +
    1.16 +
    1.17 +
    1.18 +
    1.19 +
    1.20 +(if (command-line?)
    1.21 +  (brute-force-life (read-integers (file-str (first *command-line-args*))))
    1.22 +  nil)
    1.23 +