alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* guile: add mu:count to (mu stats)

Browse Source
This commit is contained in:
djcb
2012-08-01 23:59:13 +03:00
parent 11b60b7ca0
commit 99778d1314
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
guile/mu/stats.scm
View File

@ -23,6 +23,7 @@
:use-module (ice-9 i18n) :use-module (ice-9 i18n)
:use-module (ice-9 r5rs) :use-module (ice-9 r5rs)
:export ( mu:tabulate :export ( mu:tabulate
mu:count
mu:average mu:average
mu:stddev mu:stddev
mu:correl mu:correl
@ -49,6 +50,17 @@ get back a list like
expr) expr)
table)) table))
(define* (mu:count #:optional (expr #t))
"Count the number of messages matching EXPR. If EXPR is not
provided, match /all/ messages."
(let ((num 0))
(mu:for-each-message
(lambda (msg) (set! num (1+ num)))
expr)
num))
(define (average lst) (define (average lst)
"Calculate the average of a list LST of numbers, or #f if undefined." "Calculate the average of a list LST of numbers, or #f if undefined."
(if (null? lst) (if (null? lst)