/*
	Hot Soup Processor 2.6 用モジュール集

	作者	：The Maker
	サイト	：http://hp.vector.co.jp/authors/VA030920/
	メール	：the_maker_jpn@yahoo.co.jp

	※ 作者は動作を保証致しません。
	※ このモジュールの使用・改造・転載等は一切自由です。

	uru	うるう年かどうかを調べる
	uru p1	p1：調べる年の値
	p1で指定された年がうるう年かどうかを調べます。
	システム変数statに、うるう年なら1が、
	そうでなければ0が代入されます。

	letref	システム変数refstrに値を代入
	letref p1	p1：代入する文字列
	p1で指定された文字列をシステム変数refstrに代入します。

	letstt	システム変数refstrに値を代入
	letstt p1	p1：代入する値
	p1で指定された数値をシステム変数statに代入します。

	sosu	素数かどうかを調べる
	sosu p1	p1：素数かどうかを調べる数値
	p1で指定された値が素数かどうかを調べます。
	システム変数statに、p1が素数の時は1が
	素数でない場合は最小約数を返します。
	例	p1	stat
	================
		 0	0
		 1	1
		 2	1
		 4	2
		10	2
		55	5

*/

	#module
	#deffunc uru int
	mref y:mref stt,64
	if(y\400==0){stt=1:return}
	if(y\100==0){stt=0:return}
	if(y\4==0){stt=1:return}
	stt=0:return
	#global

	#module
	#deffunc letref str
	sdim s,300:mref s,32
	sdim r,300:mref r,65
	r==s:return
	#global

	#module
	#deffunc letstt int
	mref s:mref t,64
	t==s:return
	#global

	#module sosu
	#deffunc sosu int
	mref num:mref stt,64
	repeat ,2:if(cnt>=num){stt=num:break}
	if(num\cnt==0){stt=cnt:break}
	await 0:loop:return
	#global

	#module
	#deffunc max_kouyaku int,int
	mref num:mref num1,1:mref stt,64
	if(num>num1){lop_max=num}else{lop_max=num_1}
	stt=1:lop=1
	repeat lop_max
	kazu=num\lop:kazu_1=num_1\lop
	if (kazu=0)&(kazu_1=0):stt=lop
	if lop=lopmax:goto *@f
	lop+:await 0:goto *@b
*@
	return
	#global