brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add data for graph of expected income.

Browse source
This commit is contained in:
Dominik Pantůček 2025-01-02 15:18:53 +01:00
parent b25fbd407d
commit 0e9cfd546b
3 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/members-fees.scm
View file

@ -220,7 +220,7 @@
(cons amt
(length (filter (lambda (v) (= v amt)) flst))))
amts)))
(number->string (foldl + 0 (map (lambda (p) (* (car p) (cdr p))) sums)))))
(foldl + 0 (map (lambda (p) (* (car p) (cdr p))) sums))))
(define (get-expected-income-string mb)
(let* ((flst