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
|
; test data manipulation and subsetting
(setf eps 1.e-7
xx (list 3 4.5 2 9 -6)
yy (list 3 4 2 5 1)
ll (combine (iseq 3 6) "jello" (list #c(1 1) #c(2 3))))
(check #'=
(mapcar #'mean (list (list 1 3 4 2) (list 7 6 8 9))) (list 2.5 7.5))
(check #'< (abs (- (if-else (= yy 2) yy 0) (list 0 0 2 0 0))) eps)
(let ((ord (order xx)))
(check #'< (abs (- (sort-data xx) (select xx ord))) eps)
(check #'< (abs (- (select yy ord) (iseq 1 5))) eps))
(check #'< (abs (- (select (repeat xx 3) 11) 4.5)) eps)
(check #'< (abs (- (repeat xx 3) (combine xx xx xx))) eps)
(check #'< (abs (- (select (repeat xx yy) (iseq 0 7))
(list 3 3 3 4.5 4.5 4.5 4.5 2))) eps)
(check #'< (abs (- (select (reverse (repeat xx yy)) (iseq 0 7))
(list -6 9 9 9 9 9 2 2))) eps)
#|
all(split(c("a" "b" "c" "d") c(1 2 1 2))[[2]]==c("b" "d"))
all(split(c("a" "b" "c" "d") c(1 2 1 2))$"2"==c("b" "d"))
|#
(check #'= (outer-product (iseq 1 3) (iseq 1 4))
(matrix '(3 4) (combine (iseq 1 4) (* 2 (iseq 1 4)) (* 3 (iseq 1 4)))))
|
