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

Id extraction and filtering.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 08:00:53 +01:00
parent 2c96707029
commit 15926d124e
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
members-base.scm
View file

@ -266,8 +266,7 @@
(ids (list-members-ids mb))) (ids (list-members-ids mb)))
(print "Known members: " (print "Known members: "
(length nicks)) (length nicks))
(let ((invalid-ids (filter (compose not is-4digit-prime?) ids)) (let ((invalid-mrs (filter-members-by-predicate mb (compose not is-4digit-prime? member-id)))
(invalid-mrs (filter-members-by-predicate mb (compose not is-4digit-prime? member-id)))
(active-mrs (filter-members-by-predicate mb member-active?)) (active-mrs (filter-members-by-predicate mb member-active?))
(suspended-mrs (filter-members-by-predicate mb member-suspended?)) (suspended-mrs (filter-members-by-predicate mb member-suspended?))
(destroyed-mrs (filter-members-by-predicate mb member-destroyed?)) (destroyed-mrs (filter-members-by-predicate mb member-destroyed?))
@ -280,7 +279,7 @@
(member-records->nicks-string destroyed-mrs)) (member-records->nicks-string destroyed-mrs))
(print a:highlight " Students (" (length student-mrs) "): " a:default (print a:highlight " Students (" (length student-mrs) "): " a:default
(member-records->nicks-string student-mrs)) (member-records->nicks-string student-mrs))
(when (not (null? invalid-ids)) (when (not (null? invalid-mrs))
(print a:error " Invalid Id (" (length invalid-mrs) "): " (print a:error " Invalid Id (" (length invalid-mrs) "): "
(member-records->ids+nicks-string invalid-mrs) (member-records->ids+nicks-string invalid-mrs)
a:default))))) a:default)))))