Sun West, Albert Canet, Zhang Yunchuan & John Simpson (priest).

This commit is contained in:
nik gaffney 2020-10-08 11:01:10 +02:00
parent eca6832f5d
commit cadbd7f114
2 changed files with 4 additions and 2 deletions

View file

@ -366,8 +366,10 @@
(define (print-all-meetings group)
(printf "Meetings so far:~n")
(for-each (lambda (p0)
(printf "~a has met ~a~n"
p0 (drop (map (lambda (p1) (cdar p1))
(printf "~a has met ~a others: ~a~n"
p0
(- (length (all-meetings p0)) 2)
(drop (map (lambda (p1) (cdar p1))
(all-meetings p0)) 2)))
group)
(printf "~n"))