2 (require "distinct.rkt")
4 (define (multiple-dwelling)
5 (for/list ([baker '(1 2 3 4 5)]
9 [fletcher '(1 2 3 4 5)]
10 #:unless (or (= fletcher 1)
13 #:when (> miller cooper)
15 #:when (and (not (= (abs (- smith fletcher)) 1))
16 (not (= (abs (- fletcher cooper)) 1))
17 (distinct? (list baker cooper fletcher miller smith))))
18 (list (list 'baker baker)
20 (list 'fletcher fletcher)
22 (list 'smith smith))))