Submission #1760909

---

Source Code Expand

import Control.Monad

type Board = [[Int]]

scores :: Board -> Int -> [Int]
scores board p = do
    let n = length board
    x <- [0 .. n - 1]
    y <- [0 .. n - 1]
    w <- [1 .. (n - x)]
    h <- [1 .. (n - y)]
    guard (w * h <= p)
    return $ sum [(board !! j) !! i | i <- [x .. (x + w - 1)], j <- [y .. (y + h - 1)]]

maxScore :: Board -> Int -> Int
maxScore board p = maximum $ scores board p

main :: IO ()
main = do
    n <- readLn :: IO Int
    board <- mapM (\_ -> map (read :: String -> Int) . words <$> getLine) [1..n]
    q <- readLn :: IO Int
    mapM_ (\_ -> do
        p <- readLn :: IO Int
        print $ maxScore board p
        ) [1..q]

Submission Info

Judge Result