HSPTV!掲示板

HSPで再帰を試してみるために、こんな関数を作ったのですが、

	#module

		#defcfunc sum int n
			/*nまでの0を除くすべての自然数の逆数の和*/

			if n=0 :return -1
			if n=1 :return 1

		return 1.0/n + sum(n - 1)
	#global

nが63の時にスタック領域のオーバーフローが出ます。
この関数はまだ非再帰で実装することもできますが、
あくまで再帰のテストなのでそれは抜きとしてお願いします。

間違えて、宣伝になってしまいました。
どうか気にしないでください。

HSPシステムの仕様上の限界によるものなので
ユーザー定義命令・関数、gosub を使った再帰処理では
このエラーの発生を根源的に回避することはできません。

　自前でスタックを用意してループで再帰的処理を
行うなどの方法で代替してください。

そ、そんなあ...
HSP側で8086命令のpush-popで引数を渡すような実装をしてはくれないんですか？

質問ではなく要望でしたか?
それならおにたまさんにメールしてみては?

いちおう自前での再帰処理の場合。

//----------------------------------------------------------------------------

#ifndef         __M_NS_GOSUB__
#define global  __M_NS_GOSUB__

//--------------------------------------------------------------

#module __M_NS_GOSUB

#deffunc SetRetStat@__M_NS_GOSUB var p1
	return p1

#define global	ns_gosub( %1 ) \
 %ttag_ns_gosub \
 ns_stack@__M_NS_GOSUB( ns_sublev@__M_NS_GOSUB ) = *%i : ns_sublev@__M_NS_GOSUB++ : \
 goto %1 : *%o

#define global	ns_return( %1 = stat ) \
 ns_retstat@__M_NS_GOSUB = %1 : SetRetStat@__M_NS_GOSUB ns_retstat@__M_NS_GOSUB : \
 ns_sublev@__M_NS_GOSUB-- : goto ns_stack@__M_NS_GOSUB( ns_sublev@__M_NS_GOSUB  )

#global

//--------------------------------------------------------------

	;dimtype ns_stack@__M_NS_GOSUB, vartype( "label" ), 256

#endif
//----------------------------------------------------------------------------

#define pushparam( %1 )	_param( ns_sublev@__M_NS_GOSUB + 1 ) = %1
#define curparam		_param( ns_sublev@__M_NS_GOSUB )

	pushparam 100
	ns_gosub *sum
	mes refdval
	stop

*sum
	if ( curparam = 0 ) { ns_return -1.0 }
	if ( curparam = 1 ) { ns_return 1.0 }
	pushparam curparam - 1
	ns_gosub *sum
	ns_return 1.0/curparam + refdval