Day 11: 2D Arrays

最新推荐文章于 2025-05-20 16:57:15 发布

原创最新推荐文章于 2025-05-20 16:57:15 发布 · 405 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#haskell

原创-Haskell 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个HackerRank上的编程挑战，通过使用Haskell语言实现二维数组的处理，包括创建索引、提取子数组及计算特定数值组合的最大值。该解决方案展示了Haskell语言的强大功能及其在解决复杂数据结构问题上的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

source: https://www.hackerrank.com/challenges/30-2d-arrays

module Main where

make2DIndex2 :: Int -> Int -> Int -> Int -> Int -> Int -> [(Int, Int)]
make2DIndex2 i j m' n' m n | i + m' <= m && j + n' <= n = [(x, y) | x <- [i..(i+m')], y <- [j..(j+n')]]
                         | otherwise = []

makeIndex :: Int -> Int -> Int -> Int -> [[Int]]
makeIndex m' n' m n = fmap (fmap (\(x,y) -> x * (n+1) + y)) (make2DIndex 0 0 m' n' m n)

make2DIndex :: Int -> Int -> Int -> Int -> Int -> Int -> [[(Int, Int)]]
make2DIndex i j m' n' m n | i + m' <= m && j + n' <= n = (make2DIndex2 i j m' n' m n) : (make2DIndex i (j+1) m' n' m n)
                           | j + n' > n = make2DIndex (i+1) 0 m' n' m n
                           | otherwise = []

takeArr :: [Int] -> [[Int]] -> [[Int]]
takeArr arr indexs = fmap (fmap ((!!) arr)) indexs

main :: IO()
main = do
    arr <- fmap ((fmap read).words) getContents :: IO [Int]
    print $ maximum (fmap (\xs -> sum xs - (xs !! 3) - (xs !! 5)) (takeArr arr (makeIndex 2 2 5 5)))
    return ()