RecursiveCall

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29

; 再帰の動きが分かる簡単なサンプル(tab=4)
; U-turn message : ascii文字からなる単一行のみサポート。ただしこのような文字列処理に再帰は向かない。
 
#module
; U-turn message本体( 内部で呼ばれる )
#deffunc uturn_mes var in, var out, int p1
    if peek(in,p1) = 0: return        ; 終了条件
    poke out, i, peek(in,p1)        ; ポイント１
    i++
    uturn_mes in, out, i            ; 再帰呼び出し
    poke out, i, peek(in,p1)        ; ポイント２
    i++
 
    return
 
; パラメータ受け取り用( ユーザーはこっちを呼ぶ )
#deffunc umes str s
    s1 = s
    sdim buf, strlen(s1)*2+1        ; 行って戻ってくるので2倍のバッファが必要です
 
    i = 0: uturn_mes s1, buf, i        ; 先頭からスタート( 最初の呼び出し )
    poke buf, i, 0
 
    mes buf
    return
#global
 
umes "abc123"
umes "rats & star &"

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13

#module
#defcfunc factorial int n
    // 階乗を求める関数。
    // ・ n! = n * (n - 1)!
    // ・ 1! = 0
    // を利用しています。
    if n <= 1 : return 1         // 1! = 0
    return n * factorial(n - 1)  // n! = n * (n - 1)!
#global
 
    repeat 10
        mes ""+cnt+"! = "+factorial(cnt)
    loop

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23

 
 
 
 
 
 
 
-
|
-
|
|
|
!
 
 
 
 
 
 
 
 
 

#module
#defcfunc factorial int n
    // 階乗を求める関数。
    // ・ n! = n * (n - 1)!
    // ・ 1! = 0
    // を利用しています。
    logmes "factorical(" + n + ") が呼び出されました"
    if n <= 1 {
        stt = 1                 // 1! = 0
    } else {
        f = factorial(n - 1)
        stt = n * f             // n! = n * (n - 1)!
        logmes "factorical(" + (n - 1)  + ") は factorical(" + n + ") に " + f + " を返しました"
    }
    return stt
#global
 
    repeat 10, 1
        logmes "== ▼ factorical("+ cnt +") 開始 ▼ =="
        i = factorial(cnt)
        mes "" + cnt + "! = " + i
        logmes "factorical(" + cnt + ") は " + i + " です"
    loop

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34

#module
    #include "hspmath.as" //<-要インクルード
    //πの平方根を2で割ったもの
    #define sqrtPIdiv2 0.8862269254527580136490837416705
    //実数に拡張した階乗
    //負の整数の時は発散するので、とりあえず0.0を返します。
    #defcfunc  factorial double n
        /*
         *整数、半整数の階乗は再帰処理で求めておく
         *n!=n*(n-1)!    0!=1    0.5!=sqrt(pi)/2
         */
        if n=0.0 :return 1.0
        if n=0.5 :return sqrtPIdiv2
        if (n<0.0)&(n=int(n)) :return 0.0    /*発散*/
        if n>0.0 :return n*factorial(n-1.0)
        /*
         *Γ関数を引っ張り出して実数の階乗を求める
         *                      ∞
         *n!=Γ(n+1)    Γ(x)=1/x Π(1+1/n)^x /(1+x/n)
         *                      n=0
         */
        x=n+1.0
        i=1.0
        answer=1.0
        do
            mul=pow(1.0+1.0/i,x)/(1.0+x/i)
            answer*=mul
            i+=1.0
        until absf(mul-1.0)>DBL_EPSILON
        answer*=1.0/x
 
    return answer
 
#global