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

2020-10-08 11:01:10 +02:00 · 2020-10-08 11:01:10 +02:00 · cadbd7f114
parent eca6832f5d
commit cadbd7f114
2 changed files with 4 additions and 2 deletions
--- a/example-schedule.rkt
+++ b/example-schedule.rkt
--- 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"))