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

Look for invalid ids.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-16 22:54:18 +01:00
parent e1ffc98c53
commit e6d383b020
2 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
brmsaptool.scm
View file

@ -92,7 +92,8 @@
(import (chicken string) (import (chicken string)
(chicken sort)) (chicken sort))
(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)))
(print "Members (" (print "Members ("
(length nicks) (length nicks)
"): " "): "
@ -100,7 +101,16 @@
(sort (sort
nicks nicks
string<?) string<?)
", ")))) ", "))
(print "Total IDs: "
(length ids)
" (" (length (filter is-4digit-prime? ids)) " valid)")
(let ((invalid-ids (filter (compose not is-4digit-prime?) ids)))
(when (not (null? invalid-ids))
(print " Invalid (" (length invalid-ids) "): "
(string-intersperse
(map number->string invalid-ids)
", "))))))
(define (print-member-record-info mr) (define (print-member-record-info mr)
(let* ((id (dict-ref mr 'id)) (let* ((id (dict-ref mr 'id))

6
primes.scm
View file

@ -55,8 +55,10 @@
#t)))))) #t))))))
;; Generates list of primes less than given argument. ;; Generates list of primes less than given argument.
(define (gen-primes less-than) (define (gen-primes less-than . init)
(let loop ((primes '(2)) (let loop ((primes (if (null? init)
'(2)
init))
(number 3)) (number 3))
(if (< number less-than) (if (< number less-than)
(loop (if (check-prime primes number) (loop (if (check-prime primes number)