我编写了一个小片段,用于提取 NxN 矩阵中给定单元格的任何邻居。像这样
let getNeighbours (x,y) (matrix: 'a [,]) =
let lower n = max 0 (n - 1)
let upper n = min (matrix.GetUpperBound(0)) (n + 1)
matrix.[lower x..upper x, lower y..upper y]
val arr : int [,] = [[29; 42; 0; 46; 55; 79; 18; 8]
[94; 25; 20; 45; 88; 73; 51; 69]
[62; 38; 66; 21; 55; 30; 37; 95]
[13; 35; 91; 0; 80; 15; 81; 22]
[2; 45; 94; 28; 50; 50; 35; 64]
[67; 98; 94; 63; 32; 11; 83; 23]
[38; 71; 31; 45; 52; 20; 20; 98]
[5; 4; 33; 19; 87; 17; 28; 78]]
> getNeighbours (4,0) arr;;
val it : int [,] = [[13; 35]
[2; 45]
[67; 98]]
现在它按预期工作,我对 F# Interactive 显示 2D 数组的方式有点不满意(它会翻转它们,因此 X 轴将垂直显示,而 Y 轴将水平显示)但除此之外没有任何抱怨.
但是我无法弄清楚如何以简洁的方式从邻居中排除给定的单元格,假设矩阵中每个单元格的值可以保持相同的值,那么给定单元格的唯一唯一标识符就是它指数。