summaryrefslogtreecommitdiffstats
path: root/tests/012/cadr.tl
blob: 509590f74750bc55eecbca1f9483083e14d6b94d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(load "../common")

(mtest
  (cxr 1 42) 42
  (cxr #b11 '(a . b)) a
  (cxr #b10 '(a . b)) b
  (cxr #b11000 '(1 2 3 4 5)) 4
  (cyr #b100001 '(1 2 3 4 5)) 5
  (cyr #b1111 '(((a)))) a
  (cyr #b111 '(a)) :error)

(let ((r (range* 0 100)))
  (vtest (mapcar (op cyr (succ (expt 2 (succ @1))) r) 0..100) r)
  (vtest (mapcar (op cxr (* 3 (expt 2 @1)) r) 0..100) r))