Question

我有一个矩阵，如：

0 | 1 | 2 | 3
-------------
7 | 6 | 5 | 4
-------------
8 | 9 | A | B
-------------
F | E | D | C

代码：

var matrix = new char[][]
{ 
    new char[] { '0', '1', '2', '3' },
    new char[] { '7', '6', '5', '4' },
    new char[] { '8', '9', 'A', 'B' },
    new char[] { 'F', 'E', 'D', 'C' }
};

我需要将此矩阵的所有可能组合分别与5个字符组合，但每个字符必须是下一个直接邻居，例如，0,5和4,8无效，但0,6和3,4有效

此矩阵不会像样本中那样是静态的，每次都会在任何位置使用十六进制数生成。

谢谢！

Answer 1

All possible combinations of an array

Generating all Possible Combinations

这些可能会对你有所帮助。顺便请相信“搜索”

Answer 2

只是为了好玩 - 德尔福代码。 'shl'是左移（＆lt;＆lt;），字符串是从一开始的。在矩阵周围添加边界作为哨兵，以简化检查。

一些额外的评论：我使用6x6矩阵 - 带有数字的4x4核心和一个单元格宽度的外边框。 36位Int64用作标记。位值1表示边界或访问的单元格。过程StartTravel从核心的某个起始单元启动路径查找。路径查找类似于DFS（深度优先搜索），但是当路径长度变为5时中断。

const
  Directions: array[0..3] of Integer = (-1, -6, 1, 6);

var
  Digits: string;
  Mask: Int64;
  i, j: Integer;

  procedure Travel(AFrom: Integer; Visited: Int64; Path: string);
  var
    i, Dir: Integer;
    NewMask: Int64;
  begin
    if Length(Path) = 5 then
      PrintOut(Path)
    else
      for i := 0 to 3 do begin
        Dir := Directions[i];
        NewMask := 1 shl (AFrom + Dir);
        if (Visited and NewMask) = 0 then
          Travel(AFrom + Dir, Visited or NewMask, Path + Digits[AFrom + Dir + 1]);
      end;
  end;

  procedure Init;
  var
    i: Integer;
  begin
    Digits := '-------0123--7654--89AB--FEDC-------';
    Mask := 0;
    for i := 1 to Length(Digits) do
      if Digits[i] = '-' then
        Mask := Mask or (1 shl (i - 1));
  end;

  procedure StartTravel(Row, Col: Integer);
  var
    APos: Integer;
  begin
    APos := Row * 6 + Col + 7;
    Travel(APos, Mask or (1 shl APos), Digits[APos + 1]);
  end;

begin
  Init;
  for i := 0 to 3 do
    for j := 0 to 3 do
      StartTravel(i, j);

432 combinations:
01234
01256
01254
0125A
01678
01652
01654
0165A
01698
0169A
0169E
07612
07652
....
CBADE
CB456
CB452
CB45A
CB432

4x4矩阵与5个字符的所有组合

2 个答案: