Guest

Untitled

By: a guest on Jun 4th, 2010  |  syntax: Lisp  |  size: 0.12 KB  |  hits: 236  |  expires: Never
download  |  raw  |  embed  |  report abuse
This paste has a previous version, view the difference. Copied
  1. (def xs (iterate inc 1))
  2.  
  3. (loop [xs (take 10000000 xs)]
  4.   (when xs
  5.     (println (str "x is " x))
  6.     (recur (rest xs))))