0. #lang racket
1.  
2. (define make-tswb
3.   (lambda ()
4.     (let ((records '()))
5.       (lambda (command . args)
6.         (cond
7.           ((equal? command 'empty?)
8.            (null? records))
9.           ((equal? command 'add!)
10.            (set! records (cons (car args) records)))
11.           ((equal? command 'get)
12.            (letrec ((sort-records (lambda (r) (sort r (lambda (x y) (<= (car x) (car y)))))))
13.              (if (null? args)
14.                  (sort-records records)
15.                  (sort-records (filter (car args) records)))))
16.           ((equal? command 'clear!)
17.            (set! records '()))
18.           ((equal? command 'analytic)
19.            (if (< (length args) 2)
20.                ((car args) records)
21.                ((car args) (filter (cadr args) records)))))))))
22.  
23.  
24. (define list-average
25.   (lambda (x)
26.     (/ (apply + x) (length x))))
27.  
28. (define average
29.   (lambda (x)
30.     (list-average (map cadddr x))))
31.  
32. (define list-sum
33.   (lambda (x)
34.     (if (null? x)
35.         0
36.         (+ (car x) (list-sum(cdr x))))))
37.  
38. (define sum
39.   (lambda (x)
40.     (list-sum (map cadddr x))))
41.  
42. (define (square x)
43.   (* x x))
44.  
45. (define get-std-dev
46.   (lambda (lst avg)
47.     (cond
48.      ((null? lst) 0)
49.      ((+ (square (- (car lst) avg)) (get-std-dev (cdr lst) avg))))))
50.  
51. (define std-dev
52.   (lambda (x)
53.     (sqrt(/(get-std-dev (map cadddr x) (average x))(length x)))))
54.  
55. (define list-min
56.   (lambda (lst num)
57.     (cond
58.       ((null? lst) num)
59.       ((< num (car lst))
60.        (list-min (cdr lst) num))
61.        (else
62.         (list-min (cdr lst) (car lst))))))
63.  
64. (define minimum
65.   (lambda (x)
66.     (list-min (cdr (map cadddr x))(car (map cadddr x)))))
67.  
68. (define list-max
69.   (lambda (lst num)
70.     (cond
71.       ((null? lst) num)
72.       ((> num (car lst))
73.        (list-max (cdr lst) num))
74.        (else
75.         (list-max (cdr lst) (car lst))))))
76.  
77. (define maximum
78.   (lambda (x)
79.     (list-max (cdr (map cadddr x))(car (map cadddr x)))))
80.  
81. (define counter
82.   (lambda (x)
83.     (length x)))
84.  
85. (define count
86.   (lambda (x)
87.     (counter (map cadddr x))))
88.  
89. (define odd
90.   (lambda (sorted-list num-list med)
91.     (if (null? num-list)
92.         med
93.         (odd (cdr sorted-list) (cdr num-list) (car sorted-list)))))
94.  
95. (define even
96.   (lambda (sorted-list num-list)
97.     (if (equal? (length num-list) 1)
98.         (/(+(car sorted-list)(cadr sorted-list))2)
99.         (even (cdr sorted-list) (cdr num-list)))))
100.  
101. (define get-median
102.   (lambda (sorted-list num-list)
103.     (cond
104.       ((odd? (length sorted-list))
105.        (odd sorted-list num-list 0))
106.       ((even? (length sorted-list))
107.        (even sorted-list num-list)))))
108.  
109. (define median
110.   (lambda (x)
111.     (get-median (sort (map cadddr x) <) (range (/ (length x) 2)))))
112.  
113. (define range
114.   (lambda (x)
115.     (- (maximum x) (minimum x))))
116.  
117.  
118. (define tswb (make-tswb))
119.  
120. (tswb 'empty?)
121. (tswb 'add!     '(2 123 "temp1"  72.1))
122. (tswb 'add!     '(1 123 "temp1"  72.0))
123. (tswb 'add!     '(2 123 "press1" 29.9213))
124. (tswb 'add!     '(1 123 "press1" 29.9212))
125. (tswb 'add!     '(1 456 "temp1"  87.3))
126. (tswb 'add!     '(1 456 "temp2"  87.4))
127. (tswb 'add!     '(1 456 "press1" 28.9234))
128. (tswb 'empty?)
129. (tswb 'get)
130. (tswb 'get(lambda (l) (eqv? (cadr l) 456)))                      ; return records for device 456 in time order
131. (tswb 'get(lambda (l) (eqv? (caddr l) "temp1")))           ; return the temp1 fields for all devices
132.  
133. (define (temp1-123 l)
134.   (and (eqv? (cadr l) 123) (eqv? (caddr l) "temp1")))
135.  
136. (tswb 'get temp1-123)                   ;get all the temp1 fields for device 123
137. "Sum of temp1-123"
138. (tswb 'analytic sum temp1-123)
139. "Average"
140. (tswb 'analytic average temp1-123)
141. "Standard Deviation"
142. (tswb 'analytic std-dev temp1-123)
143. "Minimum"
144. (tswb 'analytic minimum temp1-123)
145. "Maximum"
146. (tswb 'analytic maximum temp1-123)
147. "Count"
148. (tswb 'analytic count temp1-123)
149. "Median"
150. (tswb 'analytic median temp1-123)
151. "Range"
152. (tswb 'analytic range temp1-123)
153. "Sum of all data"
154. (tswb 'analytic sum)                         ;sum of all data in the database
155. "Clearing data"
156. (tswb 'clear!)                                ;clear the db
157. "Empty?"
158. (tswb 'empty?)
159. ;(tswb 'get (lambda (l) (eqv? (cadr l) 456)))    ; return records for device 456 in time order
160. ;(tswb 'get temp1-123)                       ; get all the temp1 fields for device 123
161.  
162.  
163. ; ---------------------------------------------------------------------------------------
164. ;(display (tswb 'get (lambda(x) (> (list-ref x 3) 72.1))))
165.  
166. ;(define stk (make-stack))
167. ;stk
168. ;(define stk2 (make-stack))
169. ;stk2
170. ;(sort '(2 3 4 3 1) >)

=>

#t

#f

'((1 123 "temp1" 72.0)   (1 123 "press1" 29.9212)   (1 456 "temp1" 87.3)   (1 456 "temp2" 87.4)   (1 456 "press1" 28.9234)   (2 123 "temp1" 72.1)   (2 123 "press1" 29.9213))

'((1 456 "temp1" 87.3) (1 456 "temp2" 87.4) (1 456 "press1" 28.9234))

'((1 123 "temp1" 72.0) (1 456 "temp1" 87.3) (2 123 "temp1" 72.1))

'((1 123 "temp1" 72.0) (2 123 "temp1" 72.1))

"Sum of temp1-123"

144.1

"Average"

72.05

"Standard Deviation"

0.04999999999999716

"Minimum"

72.0

"Maximum"

72.1

"Count"

2

"Median"

72.05

"Range"

0.09999999999999432

"Sum of all data"

407.56590000000006

"Clearing data"

"Empty?"

#t