Mercurial > coderloop

view src/douglas_adams.clj @ 0:307a81e46071 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial committ
author Robert McIntyre <rlm@mit.edu>
date Tue, 18 Oct 2011 01:17:49 -0700
parents
children
line wrap: on
line source
     1 (ns coderloop.douglas-adams



     2   (:refer-clojure :only [])



     3   (:require rlm.ns-rlm rlm.light-base))



     4 (rlm.ns-rlm/ns-clone rlm.light-base)



     5 



     6 (use '[clojure [string :only [trim blank? split]]])



     7 



     8 



     9 



    10 (defn brute-force-life [coll]



    11   (dorun (map println (take-while (comp not (partial = 42)) coll))))



    12 



    13 



    14 



    15 



    16 



    17 (if (command-line?)



    18   (brute-force-life (read-integers (file-str (first *command-line-args*))))



    19   nil)



    20