From cadbd7f114df9baea2143770fea31508729bfa8d Mon Sep 17 00:00:00 2001
From: nik gaffney <nik@fo.am>
Date: Thu, 8 Oct 2020 11:01:10 +0200
Subject: [PATCH] Sun West, Albert Canet, Zhang Yunchuan & John Simpson
 (priest).

---
 fmba-schedule.rkt => example-schedule.rkt | 0
 group-scheduling.rkt                      | 6 ++++--
 2 files changed, 4 insertions(+), 2 deletions(-)
 rename fmba-schedule.rkt => example-schedule.rkt (100%)

diff --git a/fmba-schedule.rkt b/example-schedule.rkt
similarity index 100%
rename from fmba-schedule.rkt
rename to example-schedule.rkt
diff --git a/group-scheduling.rkt b/group-scheduling.rkt
index fdc9589..d24ea77 100644
--- a/group-scheduling.rkt
+++ b/group-scheduling.rkt
@@ -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"))