FoAM/scheduling
FoAM/scheduling
12
0
Fork 0
Code Issues 4 Pull requests Activity

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

0
fmba-schedule.rkt → example-schedule.rkt
View file

6
group-scheduling.rkt
View file

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