119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
(let* ((cmds (hash-table-keys *db-stats*))
(res (if (null? cmds)
(cons 'none 0)
(let loop ((cmd (car cmds))
(tal (cdr cmds))
(max-cmd (car cmds))
(res 0))
;; (if (member cmd '(delete-tests-in-state)) ;; black list these outliers
;; (if (null? tal)
;; (if (> tot 20)
;; (cons
;;
|
<
<
<
<
<
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
(let* ((cmds (hash-table-keys *db-stats*))
(res (if (null? cmds)
(cons 'none 0)
(let loop ((cmd (car cmds))
(tal (cdr cmds))
(max-cmd (car cmds))
(res 0))
(let* ((cmd-dat (hash-table-ref *db-stats* cmd))
(tot (vector-ref cmd-dat 0))
(curravg (/ (vector-ref cmd-dat 1) (vector-ref cmd-dat 0))) ;; count is never zero by construction
(currmax (max res curravg))
(newmax-cmd (if (> curravg res) cmd max-cmd)))
(if (null? tal)
(if (> tot 10)
|