blob: a469186e1eefd96e34b8ed942bf32441a6a8602e (
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
(in-module "clojure")
#+:JVM(import "java.lang" '(String Class Math System))
#+:CLI(import "System, mscorlib" '(String Type Math Console))
(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 fif (a b x y z)
(if a
(if (if x y z)
0
z)
b))
(defn fr (a b & c) c)
(defn fnot (x y z)
(if (not x)
(not y)
(not z)))
(defn forf (x y z)
(if (or x y)
x
(or x y z)))
(defn fand (x y z)
(if (and x y)
x
(and x y z)))
(defn fset (x y z)
(set x 1)
(set b #\y)
(if (set (:foo x) z)
(set (.bar y) z)
(set (foo x y) z)))
(defn fdo (a b c)
(do ((a b a)
(b c b))
(c)
a b c)
(do ((a b a)
(b c b))
(c b)
a b c))
(defn fg (x)
y)
(defn ftry (x)
(try
(foo x)
nil
(bar x))
(try
(let ((ex x))
(try
(foo x 2)
(fred ex "string")
(bar x)))
(foo x)
(fred ex)
(bar x))
(try
(foo x)
(fred ex)
(bar x)
"foo"))
(defn fbind (a b c x)
(bind ((x t)
(y 17))
c)
(bind ((x nil)
(y b))
c))
(defn fq (x)
(if ':key '.foo 'a))
(defn fql ()
'(1 2 3 (4 5)))
(defn fcast ()
(if (int 7) (char 17) (long 29999)))
(defn fmem ()
#+:JVM
(if (Class.forName "Object")
(String.valueOf 7)
Math.PI)
#+:CLI
(if (Type.GetType "Object")
(String.Intern "fred")
Math.PI)
(set Math.PI 3.14))
(defn finst (x)
(if (instance? x String.)
1
2))
(defn prn (x)
#+:JVM (.println System.out x)
#+:CLI (Console.WriteLine x))
(defn fmain (args)
(prn "Hello World!"))
(defmain fmain)
|
