Submission #42003

---

Source Code Expand

tuple2Num (n1, n2) = ssum(n1 + n2 - 2) + n2
plus (n1, n2) (n3 , n4) = (n1 + n3, n2 + n4)
ssum n = floor (fromIntegral(n * (n + 1)) / fromIntegral 2)
dev n1 n2 = floor(fromIntegral n1 / fromIntegral n2)

num2Tuple n start end | n <= ssum (m - 1) = (num2Tuple n start (end - (dev (end - start) 2)))
										| ssum m < n = num2Tuple n (start + (dev (end - start) 2)) end
										| otherwise = calc n m
											where m = dev (start + end) 2

calc n m = (m + 1 - d, d)
	where d = n - ssum (m - 1)

main = do
	abc <- fmap words getLine
	print $ tuple2Num $ plus (num2Tuple ((read :: String -> Int) (abc !! 0)) 0 15000) (num2Tuple ((read :: String -> Int) (abc !! 1)) 0 15000)

Submission Info

Judge Result