Department numbers: Difference between revisions
→{{header|Racket}}
m (→=={{header|Racket}}==: stub added) |
|||
Line 1,088:
We filter the Cartesian product of the lists of candidate department numbers.
<lang racket>
(cons '(police fire sanitation)
(filter (λ (pfs) (and (not (check-duplicates pfs))
(= 12 (apply + pfs))
pfs))
(cartesian-product (range 2 8 2) (range 1 8) (range 1 8))))
</lang>
{{out}}
<pre>'((police fire sanitation)
(2 3 7)
(2 4 6)
(2 6 4)
(2 7 3)
(4 1 7)
(4 2 6)
(4 3 5)
(4 5 3)
(4 6 2)
(4 7 1)
(6 1 5)
(6 2 4)
(6 4 2)
(6 5 1))</pre>
=={{header|REXX}}==
| |||