自作関数

自作関数

Collatz問題

Function Collatz(i)
Dim j As Integer
j = i / 2
If (j * 2) = i Then
   Collatz = i / 2
Else
   Collatz = i * 3 + 1
End If
End Function

ポイント：コラッツ問題を解く為の関数。
　ループによる処理速度の低下を考慮して再入処理は実装していない。