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

本文关键字：组合 字符 4x4 5个 | 更新日期: 2023-09-27 18:15:59

我有一个矩阵:

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是有效的。

这个矩阵不会像示例中那样是静态的，它每次都在任何位置生成十六进制数字。

谢谢!

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

只是为了好玩- Delphi代码。'shl'是左移(<<)，字符串是基于1的。在矩阵周围添加边框作为哨兵，以简化检查。

一些额外的评论:我使用6x6矩阵- 4x4核心与数字，和一个单元格宽度外边框。Int64的36位被用作哨兵。位值为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
相关文章：