Department numbers: Difference between revisions
→{{header|Perl 6}}: Added Perl 6 solution
m (→{{header|Haskell}}: ( shed some redundant brackets)) |
(→{{header|Perl 6}}: Added Perl 6 solution) |
||
Line 171:
}
</lang>
=={{header|Perl 6}}==
<lang perl6>for (1..7).combinations(3).grep(*.sum == 12) {
for .permutations\ .grep(*.[0] %% 2) {
say <police fire sanitation> Z=> .list;
}
}
</lang>
{{out}}
<pre>
(police => 4 fire => 1 sanitation => 7)
(police => 4 fire => 7 sanitation => 1)
(police => 6 fire => 1 sanitation => 5)
(police => 6 fire => 5 sanitation => 1)
(police => 2 fire => 3 sanitation => 7)
(police => 2 fire => 7 sanitation => 3)
(police => 2 fire => 4 sanitation => 6)
(police => 2 fire => 6 sanitation => 4)
(police => 4 fire => 2 sanitation => 6)
(police => 4 fire => 6 sanitation => 2)
(police => 6 fire => 2 sanitation => 4)
(police => 6 fire => 4 sanitation => 2)
(police => 4 fire => 3 sanitation => 5)
(police => 4 fire => 5 sanitation => 3)
</pre>
=={{header|REXX}}==
| |||