Submission #1835423

---

Source Code Expand

main = do
  input <- map (read :: String -> Int) . words <$> getLine
  let n   = head input
      ans = [(x, y, z) | x <- [1..n], y <- [1..n], z <- [1..n], x + y + z == n, 2 * x + 3 * y + 4 * z == (last input)]
  if length ans == 0
    then putStrLn "-1 -1 -1"
    else putStrLn . printTuple . head $ ans

printTuple :: (Int, Int, Int) -> String
printTuple (x, y, z) = (show x) ++ " " ++ (show y) ++ " " ++ (show z)

Submission Info

Judge Result