/[gcl]/gcl/tests/map.tst
ViewVC logotype

Diff of /gcl/tests/map.tst

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Thu Dec 20 20:29:54 2001 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 0  Line 1 
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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26