Submission #4024053

---

Source Code Expand

parseInt(x) = parse(Int, x)
parseMap(x::Array{SubString{String},1}) = map(parseInt, x)

function main()
	n,m = readline() |> split |> parseMap
	if m%2 == 1
		k = div(m,3)
		flg = 0
		for i in 1:2:k
			l = m-3*i
			if l>=2*(n-i) && (l-2*(n-i))%2 == 0
				b = div(l-2*(n-i),2)
				a = n-i-b
				if a >= 0
					println(a," ", i, " ", b)
					flg = 1
					break
				end
			end
		end
		if flg == 0
			println("-1 -1 -1")
		end
	else
		k = div(m,3)
		flg = 0
		for i in 0:2:k
			l = m-3*i
			if l>=2*(n-i) && (l-2*(n-i))%2 == 0
				b = div(l-2*(n-i),2)
				a = n-i-b
				if a >= 0
					println(a," ", i, " ", b)
					flg = 1
					break
				end
			end
		end
		if flg == 0
			println("-1 -1 -1")
		end
	end
end

main()

Submission Info

Judge Result