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

Work on predicates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 07:24:45 +01:00
parent d183e658b1
commit 4b453162cf
2 changed files with 22 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
members-base.scm
View file

@ -264,11 +264,14 @@
(let ((invalid-ids (filter (compose not is-4digit-prime?) ids))
(active-mrs (filter-members-by-predicate mb member-active?))
(suspended-mrs (filter-members-by-predicate mb member-suspended?))
(destroyed-mrs (filter-members-by-predicate mb member-suspended?)))
(destroyed-mrs (filter-members-by-predicate mb member-destroyed?))
(student-mrs (filter-members-by-predicate mb member-student?)))
(print " Active (" (length active-mrs) "): "
(member-records->nicks-string active-mrs))
(print " Suspended (" (length suspended-mrs) "): "
(member-records->nicks-string suspended-mrs))
(print " Students (" (length student-mrs) "): "
(member-records->nicks-string student-mrs))
(when (not (null? invalid-ids))
(print " Invalid (" (length invalid-ids) "): "
(string-intersperse