Recursion Maple，定义递归关系

我对maple有点陌生，有以下编程问题。我想将以下递归关系编程到maple

i_{4n}=i_n,

i_{4n+1}=i_{2n}

i_{4n+2}=-i_{2n}

i_{4n+3}=i_n.

$i_0=1$.

这在枫树中很容易——可能比问这个问题更容易。我将使用Ii作为过程名称，因为我不愿意对过程使用像I这样的通用变量名称

Ii:= proc(n::nonnegint)
option remember;
local q,r;
     q:= iquo(n,4,'r'); #integer quotient and remainder
     `if`(r=0 or r=3, thisproc(q), (-1)^(r-1)*thisproc(2*q))
end proc:

Ii(0):= 1: #Set initial value.

---

那么这里到底是什么问题呢？StackOverflow不是您服务的代码。在提出新问题之前，先做一个简单的练习。那么，上面的练习对你有用吗？我之前告诉过你，我不喜欢你不回应我的答案。