PASTEBIN
| #1 paste tool since 2002
create new paste
tools
api
archive
real-time
faq
PASTEBIN
create new paste
trending pastes
sign up
login
my settings
my profile
Public Pastes
Pm cm
12 sec ago
When OnResize does...
5 sec ago
Untitled
17 sec ago
Untitled
11 sec ago
ASP.NET markup has...
11 sec ago
Error installing m...
17 sec ago
Mike 18 - Siterip
25 sec ago
Untitled
HTML | 24 sec ago
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
(
def xs
(
iterate inc 1
)
)
(
loop
[
xs
(
take 10000000 xs
)
]
(
when
xs
(
println
(
str
"x is "
x
)
)
(
recur
(
rest xs
)
)
)
)
create a
new version
of this paste
RAW Paste Data
(def xs (iterate inc 1)) (loop [xs (take 10000000 xs)] (when xs (println (str "x is " x)) (recur (rest xs))))