0

所以我必须创建一个“熄灯”游戏。我必须创建两个函数。一项功能“翻转”

val flip : bool 数组 array -> int -> int -> bool array array = < fun >

给定一个布尔矩阵和两个整数 i, j。它否定矩阵中位置 i、j 的值（真→假，假→真），以及否定（最多）4 个水平/垂直相邻元素的值。

这是我的代码：

`

let matrixz =         [|[|true;true;false;false|];
                      [|false;false;true;true|];
                      [|true;false;true;false|];
                      [|true;false;false;true|]|];;

let flip_matrix matrix a b=
let n=Array.length matrix in
    for i=1 to n do 
 let n1=Array.length matrix in
      for j=1 to n1 do
        if i=a && j=b
        then begin 
            matrix.(i).(j)<- not matrix.(i).(j);
            matrix.(i+1).(j)<- not matrix.(i+1).(j);
            matrix.(i).(j+1)<- not matrix.(i).(j+1); 
            matrix.(i).(j-1)<- not matrix.(i).(j-1);
            matrix.(i-1).(j)<- not matrix.(i-1).(j);
        end;
       done;
    done;
matrix;; `

我认为这是正确的。但我还必须做另一个功能：

val print_matrix : bool array array -> unit =

给定一个布尔矩阵，它将其打印在屏幕上（真→“T”，假→“F”）。

这是我的代码：

let print_s matrix=
  let n=Array.length matrix in
    for i=0 to n-1 do 
      let n1=Array.length matrix in
        for j=0 to n1-1 do
         print_string matrix.(i).(j);
        done; 
       print_string "/n";
      done;

这将是正确的输出：

# flip matrix 1 4;;
# print_matrix matrix;;
FTFT
TFFF
FFTT

我知道第二个功能不正确。我很感激一些帮助和建议，因为我对 Ocaml 真的很陌生。

4

1 回答 1

0

首先，您的代码将更容易确定其格式是否正确。空间很便宜，所以不要犹豫使用它们。

let matrixz =         
  [|[|true; true; false; false|];
    [|false; false; true; true|];
    [|true; false; true; false|];
    [|true; false; false; true|]|]

let flip_matrix matrix a b =
  let n = Array.length matrix in
  for i = 1 to n do 
    let n1 = Array.length matrix in
    for j = 1 to n1 do
      if i = a && j = b then 
      begin 
        matrix.(i).(j) <- not matrix.(i).(j);
        matrix.(i + 1).(j) <- not matrix.(i+1).(j);
        matrix.(i).(j + 1) <- not matrix.(i).(j + 1); 
        matrix.(i).(j - 1) <- not matrix.(i).(j - 1);
        matrix.(i - 1).(j) <- not matrix.(i - 1).(j);
      end;
    done;
  done;
  matrix

这同样适用于您的print_s功能。

let print_s matrix =
  let n = Array.length matrix in
  for i = 0 to n - 1 do 
    let n1 = Array.length matrix in
    for j = 0 to n1 - 1 do
      print_string matrix.(i).(j);
    done; 
    print_string "/n";
  done

这会起作用，但有两个问题。print_string matrix.(i).(j)期望matrix.(i).(j)是一个字符串，但它是一个布尔值。您必须将其转换为字符串。OCaml 是非常强类型的，所以它不会为你隐式地进行这种转换。

第二个非常简单，当您弄清楚类型问题时。打印/n不会给你换行符。打印\n会。

此外，您可能希望研究iterArray 模块中的功能以实现打印。

于 2021-05-09T16:26:06.817 回答