pastebin
| #1 paste tool since 2002
create new paste
tools
api
archive
real-time
faq
pastebin
Follow @pastebin
create new paste
trending pastes
sign up
login
my settings
my profile
My Pastes
Public Pastes
C[Baza]
5 sec ago
Untitled
5 sec ago
Gratuit Minecraft compt...
17 sec ago
Untitled
9 sec ago
Filesonic premium accou...
16 sec ago
Untitled
11 sec ago
Untitled
mIRC | 13 sec ago
Getting the first and l...
14 sec ago
Layout Width
Share Pastebin
Untitled
By: a guest | Jun 4th, 2010 | Syntax:
Lisp
| Size: 0.12 KB | Hits: 230 | Expires: Never
Download
|
Raw
|
Embed
|
Report abuse
This paste has a previous version,
view the difference
.
(
def xs
(
iterate inc 1
)
)
(
loop
[
xs
(
take 10000000 xs
)
]
(
when
xs
(
println
(
str
"x is "
x
)
)
(
recur
(
rest xs
)
)
)
)
create new paste
|
create 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))))