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:42 +01:00
parent faf18b928e
commit 2c96707029
2 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
member-record.scm
View file

@ -35,6 +35,7 @@
member-active? member-active?
member-student? member-student?
member-nick member-nick
member-id
member-record-tests! member-record-tests!
) )
@ -124,6 +125,10 @@
(define (member-nick mr) (define (member-nick mr)
(mr-ref mr 'nick)) (mr-ref mr 'nick))
;; Returns member id
(define (member-id mr)
(mr-ref mr 'id))
;; Performs module self-tests. ;; Performs module self-tests.
(define (member-record-tests!) (define (member-record-tests!)
(run-tests (run-tests

23
members-base.scm
View file

@ -46,6 +46,7 @@
(chicken irregex) (chicken irregex)
(chicken sort) (chicken sort)
(chicken string) (chicken string)
(chicken format)
testing testing
utils utils
dictionary dictionary
@ -247,16 +248,26 @@
(string-intersperse (string-intersperse
(map member-nick mrs) s))) (map member-nick mrs) s)))
;; To aid in printing lists of records
(define (member-records->ids+nicks-string mrs . sl)
(let ((s (if (null? sl)
", "
(car sl))))
(string-intersperse
(map (lambda (mr)
(sprintf "~A (~A)"
(member-id mr)
(member-nick mr)))
mrs))))
;; Basic information about members-base in human-readable form. ;; Basic information about members-base in human-readable form.
(define (print-members-base-info mb) (define (print-members-base-info mb)
(let ((nicks (list-members-nicks mb)) (let ((nicks (list-members-nicks mb))
(ids (list-members-ids mb))) (ids (list-members-ids mb)))
(print "Known members: " (print "Known members: "
(length nicks)) (length nicks))
(print "Total IDs: "
(length ids)
" (" (length (filter is-4digit-prime? ids)) " valid)")
(let ((invalid-ids (filter (compose not is-4digit-prime?) ids)) (let ((invalid-ids (filter (compose not is-4digit-prime?) ids))
(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?))
@ -270,10 +281,8 @@
(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-ids))
(print a:error " Invalid (" (length invalid-ids) "): " (print a:error " Invalid Id (" (length invalid-mrs) "): "
(string-intersperse (member-records->ids+nicks-string invalid-mrs)
(map number->string invalid-ids)
", ")
a:default))))) a:default)))))
;; Performs self-tests of this module. ;; Performs self-tests of this module.