Department numbers: Difference between revisions
Content deleted Content added
m →{{Haskell}}: fixed header |
m →{{header|Haskell}}: ( shed some redundant brackets) |
||
| Line 70: | Line 70: | ||
let ds = [1 .. 7] |
let ds = [1 .. 7] |
||
in [2, 4, 6] >>= |
in [2, 4, 6] >>= |
||
\x -> |
|||
ds >>= |
ds >>= |
||
\y -> |
|||
if x /= y |
if x /= y |
||
then let z = 12 - (x + y) |
then let z = 12 - (x + y) |
||
in [ (y, x, z) |
in [ (y, x, z) |
||
| y /= z && elem z ds ] |
| y /= z && elem z ds ] |
||
else [] |
else [] |
||
main :: IO () |
main :: IO () |
||