Department numbers: Difference between revisions

m
m (→‎{{header|Python}}: (defined bind in terms of operator.add))
Line 999:
main :: IO ()
main =
let xs = [1 .. 7]
mapM_ print $
[1in ..mapM_ 7]print >>=$
\x - xs >>=
[1\x .. 7] >->=
\y - xs >>=
[1\y .. 7] >->=
\z - xs >>=
\z else []</lang->
if even x && length (nub [x, y, z]) == 3 && (sum [x, y, z] == 12)
then [ (x, y, z)]
if | even x && 3 == length (nub [x, y, z]) == 3 && (12 == sum [x, y, z] == 12)]
else []</lang>
</lang>
{{Out}}
<pre>(2,3,7)
9,659

edits