Ocaml 做一个三角形自转

我正试图让我的三角形自转，但我没有成功：/有人能告诉我怎么做吗？ 这是我的代码的一部分，它使飞船旋转（到目前为止，我可以显示飞船，但我不能使它旋转..）

---

您没有发布代码的这一部分，但我猜您的动画循环看起来像

let animate state iteration_n =
  for i = 1 to iteration_n do
    show_ship (rotateLeft state)
  done

但是状态结构是不可变的，因此动画循环实际上应该是一个递归函数：

let rec animate state = function
  | 0 -> ()
  | n -> show_ship state; animate (rotateLeft state) (n - 1)

---

为什么要删除代码？如果你只是要求做整个代码，我们不会帮你…实际上我只是在修改它，我会再放一遍，谢谢。

let rec animate state = function
  | 0 -> ()
  | n -> show_ship state; animate (rotateLeft state) (n - 1)