blob: f3427df2032e0ebf7bf8a3723cd3b1d137b3da92 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
(in-module "clojure")
(defn f0 ())
(defn f1 (x) x)
(defn f2 (x y) y)
(defn f5 (a b c d e) (d e) (f1 a))
(defn* f01
(())
((x) x))
(defn fa (x)
(.foo x))
(defn fk (x)
(:foo x))
(defn fl (a b c)
(let ((d (let ((x a))
x)))
d)
(let ((e c))
e))
(defn fl* (a b c)
(let* ((d b)
(e d))
e))
(defn always (x)
(fn () x))
(defn fletfn (x)
(letfn ((a (b) b)
(c (d) (a d))
(d (x) (d a)))
(c x)))
(defn fr (a b & c) c)
|
