楓，定義遞歸關係

Question

我對楓有點新鮮，並且有以下編程問題。我想將下面的遞歸關係編程爲楓樹。

i_{4n}=i_n, 

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

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

i_{4n+3}=i_n. 

$i_0=1$. 

Answer 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.