1(define (unique-pairsn)2(flatmap (lambda (i)3(map (lambda (j) (list i j))4(enumerate-interval1(- i1)))5(enumerate-interval1n))) exercise 2.41 1(define (tri-pairsn)2(let ((range (enumerate-interval1n)))3(flatmap (lambda (i)4(flatmap (lambda (j)5(map (lambda (k) (list...