Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
Untitled
a guest
Jan 30th, 2011
148
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Lisp
0.19 KB
| None
|
0
0
raw
download
clone
embed
print
report
(
defn fact
[
x
]
(
loop
[
n x
ans
1
]
(
if
(
=
n
0
)
ans
(
recur
(
dec n
)
(
* n ans
)
)
)
)
)
(
defn fact2
(
[
x
]
(
fact2 x
1
)
)
(
[
x ans
]
(
if
(
=
x
0
)
ans
(
recur
(
dec x
)
(
* x ans
)
)
)
)
)
Advertisement
Add Comment
Please,
Sign In
to add comment
Public Pastes
Power of AI
CSS | 48 sec ago | 0.44 KB
+12,000$ in 2 days
CSS | 52 sec ago | 0.70 KB
✅ Changelly Exploit
55 sec ago | 0.44 KB
Instant Profits Method
CSS | 58 sec ago | 0.44 KB
✅ Swap sites exploit
CSS | 28 min ago | 0.58 KB
AI For $$$$
CSS | 28 min ago | 0.58 KB
$12.OOO in Claim
CSS | 28 min ago | 0.58 KB
Bonus Swap Exploit
CSS | 28 min ago | 0.58 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
