Preliminary stats.
This commit is contained in:
parent
a4a296f36b
commit
ed6d9913de
2 changed files with 16 additions and 1 deletions
|
@ -101,5 +101,6 @@
|
||||||
(print-members-base-info MB))
|
(print-members-base-info MB))
|
||||||
(newline))
|
(newline))
|
||||||
((print-stats)
|
((print-stats)
|
||||||
(print (members-base-stats MB)))
|
(print-members-base-stats
|
||||||
|
(members-base-stats MB)))
|
||||||
)
|
)
|
||||||
|
|
|
@ -35,6 +35,7 @@
|
||||||
list-members-nicks
|
list-members-nicks
|
||||||
members-base-stats
|
members-base-stats
|
||||||
print-members-base-info
|
print-members-base-info
|
||||||
|
print-members-base-stats
|
||||||
members-base-tests!
|
members-base-tests!
|
||||||
)
|
)
|
||||||
|
|
||||||
|
@ -324,6 +325,19 @@
|
||||||
(member-records->ids+nicks-string invalid-mrs)
|
(member-records->ids+nicks-string invalid-mrs)
|
||||||
a:default)))))
|
a:default)))))
|
||||||
|
|
||||||
|
;; Prints the stats in format used by gnuplot.
|
||||||
|
(define (print-members-base-stats ms)
|
||||||
|
(let ((keys (car ms))
|
||||||
|
(data (cadr ms)))
|
||||||
|
(print "# " (string-intersperse (map symbol->string keys) " "))
|
||||||
|
(let loop ((rows data))
|
||||||
|
(when (not (null? rows))
|
||||||
|
(let* ((row (car rows))
|
||||||
|
(month (month->string (car row)))
|
||||||
|
(vals (cdr row)))
|
||||||
|
(print month " " (string-intersperse (map number->string vals) " "))
|
||||||
|
(loop (cdr rows)))))))
|
||||||
|
|
||||||
;; Performs self-tests of this module.
|
;; Performs self-tests of this module.
|
||||||
(define (members-base-tests!)
|
(define (members-base-tests!)
|
||||||
(run-tests
|
(run-tests
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue