Возврат местного квадрата из сетки в Haskell

Question

у меня есть следующие сетки:

[["a1","b1", "c1","d1"], 
["a2","b2", "c2","d2"], 

["a3","b3", "c3","d3"], 
["a4","b4", "c4","d4"]] 

и хотел бы извлечь диапазон значений в их «квадратах», так что я в конечном итоге со списком квадратных значений. Значения x являются горизонтальными, а значения y - вертикальными.

я следующая функция начала:

type Coordinate = (Int,Int) 

return :: [[String]] -> Coordinate -> [String] 
return grid (x,y) = ..... 

где (0,0) это верхний левый угол сетки. Используя вышеприведенную функцию, я хотел бы получить квадрат, чтобы получилось так (если мои координаты (2,0), (3,0), (2,1), (3,1)):

["c1","d1","c2","d2"] 

Я пробовал некоторые методы, включая функцию map, но вам нужно несколько советов о том, как действовать.

Answer 1

Я предлагаю следующее:

localSquare :: [[a]] -> (Int,Int) -> [[a]] 
localSquare xss (x,y) = map (take y . drop n) $ (take x . drop n) xss 
    where n = length xss `div` 2 

matrix = replicate 10 [1..10] 

применяется:

> localSquare matrix (5,5) 
[[6,7,8,9,10],[6,7,8,9,10],[6,7,8,9,10],[6,7,8,9,10],[6,7,8,9,10]] 

Если вы действительно нужен простой список, применять только тип concat $ localSquare matrix (5,5)