Submission #155934

---

Source Code Expand

{-# LANGUAGE BangPatterns #-}
import Data.List
import Data.Char
import Data.Maybe
import Data.Tuple
import Debug.Trace
import Data.Array
import Data.Array.IO
import Control.Monad
import Control.Applicative
import Control.Arrow
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as M
import Text.Printf

readInts :: IO [Int]
readInts = map read . words <$> getLine
readBInt = fst . fromJust . B.readInt
readBInts = map readBInt . B.words <$> B.getLine

(|>) x f = f x; infixl 1 |>

debug x = trace ("# " ++ show x) x

main :: IO ()
main = do
    [n, m] <- readInts
    putStrLn $ if n *2 > m || n * 4 < m then "-1 -1 -1" else (shou $ fuck n m)


fuck n m =
    let m2 = m - 2 * n
        c = m2 `div` 2
        b = m2 - c * 2
        a = n - b - c
    in (a, b, c)

shou (a,b,c) = show a ++ " " ++ show b ++ " " ++ show c

Submission Info

Judge Result