gistfile1.clj

(def radius (if (empty? *command-line-args*)
              12
              (Integer/parseInt (first *command-line-args*))))

(defn stream [radius]
  (let [full-range (range (- radius)
                          (inc radius))]
    (for [x full-range
          y full-range
          z full-range]
      (if (> radius (Math/sqrt (+ (* x x)
                                  (* y y)
                                  (* z z))))
        "x"
        "-"))))

(let [diameter (inc (* 2 radius))]
  (doseq [[i n] (map vector (iterate inc 0) (stream radius))]
    (when (= 0 (mod i diameter)) (print "\n"))
    (when (= 0 (mod i (* diameter diameter))) (print "\n"))
    (print n)))