gistfile1.lisp

(ns timetest
  (:use clojure.contrib.shell-out))

; Execute and return a list of lines, think of it as a helper for (sh)
(defn sh-lines
  "Given a program and a list of args, run it and return an array
  of the lines for stdout"
  [& body]
  (.split (:out (apply sh :return-map true body)) "\n"))

; 'echo_million' just prints a million lines to the screen
(time
  (doseq [l (sh-lines "echo_million.rb")]
    (empty? l)))

; java.lang.OutOfMemoryError: GC overhead limit exceeded (NO_SOURCE_FILE:0)