Submission #227874
Source Code Expand
main :: IO () main = getContents >>= print . (`mod` 1000000007) . solve . map (map read . words) . lines solve :: [[Integer]] -> Integer solve ((r:c:_):(x:y:_):(d:l:_):_) = solve' (x, y) (d, l) * (r - x + 1) * (c - y + 1) solve _ = 0 solve' :: Integral a => (a, a) -> (a, a) -> a solve' (x, y) (d, l) | x * y == d + l = choose (x, y) (d, l) | otherwise = choose (x, y) (d, l) - choose (x - 1, y) (d, l) * 2 - choose (x, y - 1) (d, l) * 2 + choose (x - 2, y) (d, l) + choose (x, y - 2) (d, l) + choose (x - 1, y - 1) (d, l) * 4 - choose (x - 2, y - 1) (d, l) * 2 - choose (x - 1, y - 2) (d, l) * 2 + choose (x - 2, y - 2) (d, l) choose :: Integral a => (a, a) -> (a, a) -> a choose (x, y) (d, l) | x * y < d + l = 0 | otherwise = binomial (x * y) d * binomial (x * y - d) l binomial :: Integral a => a -> a -> a binomial n k | k <= 0 || n <= k || n <= 0 = 1 | otherwise = product [k+1..n] `div` product [1..n-k]
Submission Info
Submission Time | |
---|---|
Task | D - AtCoder社の冬 |
User | itchyny |
Language | Haskell (GHC 7.4.1) |
Score | 101 |
Code Size | 1076 Byte |
Status | AC |
Exec Time | 53 ms |
Memory | 2512 KB |
Judge Result
Set Name | sub | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 100 / 100 | 1 / 1 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
sub | 00_sample_01E.txt, 00_sample_02E.txt, 00_sample_03E.txt, test_03E.txt, test_04E.txt, test_07E.txt, test_08E.txt, test_11E.txt, test_12E.txt, test_15E.txt, test_16E.txt, test_19E.txt, test_20E.txt, test_23E.txt, test_24E.txt, test_27E.txt, test_28E.txt, test_31E.txt, test_32E.txt, test_36E.txt, test_37E.txt, test_38E.txt, test_39E.txt, test_45E.txt, test_47E.txt |
All | 00_sample_01E.txt, 00_sample_02E.txt, 00_sample_03E.txt, 00_sample_04.txt, test_01.txt, test_02.txt, test_03E.txt, test_04E.txt, test_05.txt, test_06.txt, test_07E.txt, test_08E.txt, test_09.txt, test_10.txt, test_11E.txt, test_12E.txt, test_13.txt, test_14.txt, test_15E.txt, test_16E.txt, test_17.txt, test_18.txt, test_19E.txt, test_20E.txt, test_21.txt, test_22.txt, test_23E.txt, test_24E.txt, test_25.txt, test_26.txt, test_27E.txt, test_28E.txt, test_29.txt, test_30.txt, test_31E.txt, test_32E.txt, test_33.txt, test_34.txt, test_35.txt, test_36E.txt, test_37E.txt, test_38E.txt, test_39E.txt, test_40.txt, test_41.txt, test_42.txt, test_43.txt, test_44.txt, test_45E.txt, test_46.txt, test_47E.txt, test_48.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
00_sample_01E.txt | AC | 53 ms | 1728 KB |
00_sample_02E.txt | AC | 43 ms | 1804 KB |
00_sample_03E.txt | AC | 45 ms | 1860 KB |
00_sample_04.txt | AC | 45 ms | 2368 KB |
test_01.txt | AC | 41 ms | 1728 KB |
test_02.txt | AC | 40 ms | 1736 KB |
test_03E.txt | AC | 42 ms | 1872 KB |
test_04E.txt | AC | 43 ms | 1732 KB |
test_05.txt | AC | 42 ms | 1728 KB |
test_06.txt | AC | 44 ms | 2396 KB |
test_07E.txt | AC | 42 ms | 1732 KB |
test_08E.txt | AC | 42 ms | 1732 KB |
test_09.txt | AC | 43 ms | 2364 KB |
test_10.txt | AC | 44 ms | 2372 KB |
test_11E.txt | AC | 42 ms | 1732 KB |
test_12E.txt | AC | 40 ms | 1732 KB |
test_13.txt | AC | 44 ms | 2028 KB |
test_14.txt | AC | 41 ms | 1860 KB |
test_15E.txt | AC | 41 ms | 1732 KB |
test_16E.txt | AC | 40 ms | 1720 KB |
test_17.txt | AC | 40 ms | 1776 KB |
test_18.txt | AC | 41 ms | 1984 KB |
test_19E.txt | AC | 40 ms | 1728 KB |
test_20E.txt | AC | 41 ms | 1720 KB |
test_21.txt | AC | 42 ms | 1992 KB |
test_22.txt | AC | 43 ms | 2372 KB |
test_23E.txt | AC | 40 ms | 1756 KB |
test_24E.txt | AC | 40 ms | 1732 KB |
test_25.txt | AC | 41 ms | 1996 KB |
test_26.txt | AC | 40 ms | 1988 KB |
test_27E.txt | AC | 41 ms | 1732 KB |
test_28E.txt | AC | 41 ms | 1736 KB |
test_29.txt | AC | 46 ms | 2512 KB |
test_30.txt | AC | 45 ms | 2380 KB |
test_31E.txt | AC | 41 ms | 1732 KB |
test_32E.txt | AC | 41 ms | 1736 KB |
test_33.txt | AC | 41 ms | 1736 KB |
test_34.txt | AC | 40 ms | 2032 KB |
test_35.txt | AC | 41 ms | 1728 KB |
test_36E.txt | AC | 42 ms | 1732 KB |
test_37E.txt | AC | 41 ms | 1724 KB |
test_38E.txt | AC | 41 ms | 1736 KB |
test_39E.txt | AC | 41 ms | 1732 KB |
test_40.txt | AC | 42 ms | 2244 KB |
test_41.txt | AC | 40 ms | 1732 KB |
test_42.txt | AC | 41 ms | 1988 KB |
test_43.txt | AC | 40 ms | 1732 KB |
test_44.txt | AC | 43 ms | 2256 KB |
test_45E.txt | AC | 42 ms | 1868 KB |
test_46.txt | AC | 41 ms | 1724 KB |
test_47E.txt | AC | 42 ms | 1728 KB |
test_48.txt | AC | 44 ms | 1736 KB |