Department numbers: Difference between revisions

(→‎{{header|Haskell}}: more sugared version of bare minimum)
Line 275:
[12 - (x + y)] >>=
\z ->
[ (x,if y, /= z) && 1 <= z && z <= 7
| y /=then z[(x, && 1 <=y, z && z <= 7 )]</lang>
else []</lang>
or, withresugaring athis little moreinto list comprehension sugaringformat:
<lang Haskell>main :: IO ()
main =
9,655

edits