1 |
|
(setf a-vector (make-array 10)) |
2 |
|
#+XCL #(0 0 0 0 0 0 0 0 0 0) |
3 |
|
#+CLISP #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL) |
4 |
|
|
5 |
|
(do ((i 0 (1+ i)) |
6 |
|
(n (length a-vector))) |
7 |
|
((= i n)) |
8 |
|
(when (null (aref a-vector i)) |
9 |
|
(setf (aref a-vector i) 0))) |
10 |
|
nil |
11 |
|
|
12 |
|
(setq liste '(a b c d)) |
13 |
|
(a b c d) |
14 |
|
|
15 |
|
(setq x 'anfangswert-von-x) |
16 |
|
anfangswert-von-x |
17 |
|
|
18 |
|
(do ((x liste (cdr x)) |
19 |
|
(oldx x x)) |
20 |
|
((null x)) |
21 |
|
(print oldx) (print x)) |
22 |
|
nil |
23 |
|
|
24 |
|
(defun list-reverse(list) |
25 |
|
(do ((x list (cdr x)) |
26 |
|
(y '() (cons (car x) y))) |
27 |
|
((endp x) y))) |
28 |
|
list-reverse |
29 |
|
|
30 |
|
(list-reverse '(a b c d)) |
31 |
|
(d c b a) |
32 |
|
|
33 |
|
(setq foo '(a b c d)) |
34 |
|
(a b c d) |
35 |
|
|
36 |
|
(setq bar '(1 2 3 4)) |
37 |
|
(1 2 3 4) |
38 |
|
|
39 |
|
(defun fkt(a b) (cons a b)) |
40 |
|
fkt |
41 |
|
|
42 |
|
;mapcar |
43 |
|
|
44 |
|
(mapcar #'abs '(3 -4 2 -5 -6)) |
45 |
|
(3 4 2 5 6) |
46 |
|
|
47 |
|
(mapcar #'cons '(a b c) '(1 2 3)) |
48 |
|
((a . 1) (b . 2) (c . 3)) |
49 |
|
|
50 |
|
|
51 |
|
(mapcar #'fkt foo bar) |
52 |
|
((a . 1)(b . 2)(c . 3)(d . 4)) |
53 |
|
|
54 |
|
(do ((x foo (cdr x)) |
55 |
|
(y bar (cdr y)) |
56 |
|
(z '() (cons (fkt (car x) (car y)) z))) |
57 |
|
((or (null x) (null y)) |
58 |
|
(nreverse z))) |
59 |
|
((a . 1)(b . 2)(c . 3)(d . 4)) |
60 |
|
|
61 |
|
;dolist |
62 |
|
(let ((l '(1 2 3)) |
63 |
|
(r 0)) |
64 |
|
(dolist (x l r) |
65 |
|
(setf r (+ r x)) )) |
66 |
|
6 |
67 |
|
|
68 |
|
|
69 |
|
;dolist |
70 |
|
(let ((l '(1 2 3))) |
71 |
|
(dolist (x l)(if (> 0 x)(incf x)(return 10)))) |
72 |
|
10 |
73 |
|
|
74 |
|
(let ((l '(1 2 3))) |
75 |
|
(dolist (x l )(incf x))) |
76 |
|
nil |
77 |
|
|
78 |
|
;dotimes |
79 |
|
|
80 |
|
(let ((s 0)) |
81 |
|
(dotimes (i (+ 1 9)s)(setf s (+ s i)))) |
82 |
|
45 |
83 |
|
|
84 |
|
|
85 |
|
(dolist (x '(a b c d)) (prin1 x) (princ " ")) |
86 |
|
nil |
87 |
|
|
88 |
|
(defun palindromep (string &optional |
89 |
|
(start 0) |
90 |
|
(end (length string))) |
91 |
|
(dotimes (k (floor (- end start) 2) t) |
92 |
|
(unless (char-equal (char string (+ start k)) |
93 |
|
(char string (- end k 1))) |
94 |
|
(return nil)))) |
95 |
|
palindromep |
96 |
|
|
97 |
|
(palindromep "Able was I ere I saw Elba") |
98 |
|
t |
99 |
|
|
100 |
|
(palindromep "einnegermitgazellezagtimregennie") |
101 |
|
t |
102 |
|
|
103 |
|
(palindromep "eisgekuehlter bommerlunder") |
104 |
|
nil |
105 |
|
|
106 |
|
(palindromep (remove-if-not #'alpha-char-p |
107 |
|
"A man, a plan, a canal -- Panama")) |
108 |
|
t |
109 |
|
(MAPCAR (FUNCTION (LAMBDA (X) (LIST X))) (QUOTE (A B C))) |
110 |
|
((A) (B) (C)) |
111 |
|
|
112 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y) (LIST X Y))) (QUOTE (A B C)) (QUOTE |
113 |
|
(1 2 3))) |
114 |
|
((A 1) (B 2) (C 3)) |
115 |
|
|
116 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y) (LIST X Y))) (QUOTE (A B C)) (QUOTE |
117 |
|
(1 2))) |
118 |
|
((A 1) (B 2)) |
119 |
|
|
120 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y) (LIST X Y))) (QUOTE (C)) (QUOTE (1 |
121 |
|
2))) |
122 |
|
((C 1)) |
123 |
|
|
124 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y Z) (LIST X Y))) (QUOTE (C)) (QUOTE (1 |
125 |
|
2)) (U V W)) |
126 |
|
ERROR |
127 |
|
|
128 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y Z) (LIST X Y))) (QUOTE (C)) (QUOTE (1 |
129 |
|
2)) |
130 |
|
(QUOTE (U V W))) |
131 |
|
((C 1)) |
132 |
|
|
133 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y Z) (LIST X Y))) (QUOTE (A B C)) (QUOTE |
134 |
|
(1 2 3)) |
135 |
|
(QUOTE (U V W))) |
136 |
|
((A 1) (B 2) (C 3)) |
137 |
|
|
138 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE |
139 |
|
(1 2 3)) |
140 |
|
(QUOTE (U V W))) |
141 |
|
((A 1 U) (B 2 V) (C 3 W)) |
142 |
|
|
143 |
|
;mapc |
144 |
|
(mapc #'abs '(3 -4 2 -5 -6)) |
145 |
|
(3 -4 2 -5 -6) |
146 |
|
|
147 |
|
(MAPC (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE |
148 |
|
(1 2 3)) |
149 |
|
(QUOTE (U I V))) |
150 |
|
(A B C) |
151 |
|
|
152 |
|
(MAPCAR (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE |
153 |
|
(1 2 3)) |
154 |
|
(QUOTE (U I V))) |
155 |
|
((A 1 U) (B 2 I) (C 3 V)) |
156 |
|
|
157 |
|
(mapl #'(lambda (x y)(cons x y))'(a b c d)'(1 2 3 4)) |
158 |
|
(a b c d) |
159 |
|
|
160 |
|
(MAPL (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE |
161 |
|
(1 2 3)) |
162 |
|
(QUOTE (U I V))) |
163 |
|
(A B C) |
164 |
|
|
165 |
|
;maplist |
166 |
|
|
167 |
|
(maplist #'(lambda (x)(cons 'foo x))'(a b c d)) |
168 |
|
((foo a b c d)(foo b c d)(foo c d)(foo d)) |
169 |
|
|
170 |
|
|
171 |
|
(maplist #'(lambda (x) (if (member (car x)(cdr x)) 0 1)) |
172 |
|
'(a b a c d b c)) |
173 |
|
(0 0 1 0 1 1 1) |
174 |
|
|
175 |
|
|
176 |
|
(MAPLIST (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) |
177 |
|
(QUOTE (1 2 3)) (QUOTE (U I V))) |
178 |
|
(((A B C) (1 2 3) (U I V)) ((B C) (2 3) (I V)) ((C) (3) (V))) |
179 |
|
|
180 |
|
(MAPLIST (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) |
181 |
|
(QUOTE (1 2 3)) (QUOTE (U I))) |
182 |
|
(((A B C) (1 2 3) (U I)) ((B C) (2 3) (I))) |
183 |
|
|
184 |
|
(MAPLIST (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE |
185 |
|
(1 2)) |
186 |
|
(QUOTE (U I V))) |
187 |
|
(((A B C) (1 2) (U I V)) ((B C) (2) (I V))) |
188 |
|
|
189 |
|
(MAPLIST (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B)) (QUOTE |
190 |
|
(1 2 3)) |
191 |
|
(QUOTE (U I V))) |
192 |
|
(((A B) (1 2 3) (U I V)) ((B) (2 3) (I V))) |
193 |
|
|
194 |
|
;mapcon |
195 |
|
|
196 |
|
(mapcon #'(lambda (x)(and (oddp (car x))(list (car x))))'(5 4 3 2 1)) |
197 |
|
(5 3 1) |
198 |
|
|
199 |
|
|
200 |
|
(MAPCON (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B)) (QUOTE |
201 |
|
(1 2 3)) |
202 |
|
(QUOTE (U I V))) |
203 |
|
((A B) (1 2 3) (U I V) (B) (2 3) (I V)) |
204 |
|
|
205 |
|
(MAPCON (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE |
206 |
|
(1 2 3)) |
207 |
|
(QUOTE (U I V))) |
208 |
|
((A B C) (1 2 3) (U I V) (B C) (2 3) (I V) (C) (3) (V)) |
209 |
|
|
210 |
|
;mapcan |
211 |
|
|
212 |
|
(mapcan #'(lambda (x)(and (numberp x)(list x)))'(a 1 b c 3 4 d 5)) |
213 |
|
(1 3 4 5) |
214 |
|
|
215 |
|
(MAPCAN (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE |
216 |
|
(1 2 3)) |
217 |
|
(QUOTE (U I V))) |
218 |
|
(A 1 U B 2 I C 3 V) |
219 |
|
|
220 |
|
(MAPCAN (FUNCTION (LAMBDA (X Y) (LIST X Y))) (QUOTE (A B C)) (QUOTE |
221 |
|
(1 2 3))) |
222 |
|
(A 1 B 2 C 3) |
223 |
|
|
224 |
|
(MAPCAN (FUNCTION (LAMBDA (X) (LIST X))) (QUOTE (A B C))) |
225 |
|
(A B C) |
226 |
|
|
227 |
|
(MAPCON (FUNCTION (LAMBDA (X) (LIST X))) (QUOTE (A B C))) |
228 |
|
((A B C) (B C) (C)) |
229 |
|
|
230 |
|
(MAPCON (FUNCTION (LAMBDA (X Y) (LIST X Y))) (QUOTE (A B C)) (QUOTE |
231 |
|
(1 2))) |
232 |
|
((A B C) (1 2) (B C) (2)) |
233 |
|
|
234 |
|
(MAPCON (FUNCTION (LAMBDA (X) (LIST X))) (QUOTE (A B C))) |
235 |
|
((A B C) (B C) (C)) |
236 |
|
|