#author("2018-06-13T18:32:15+09:00","","")
Y_repeatは昔is_Digitを

 if p==0||p==1||p==2||p==3||p==4||p==5||p==6||p==7||p==8||p==9{

みたいに書いて親切なんだかバカなんだか　みたい評価をいただきましたｗ

さっきrangeモジュールを書いたら書きやすいかな？と思い書いてみたら

楽に書けましたｗ

決め打ちで３種類関数にしちゃってもいいかも。ですねｗ

 #module m_range mem_min,mem_max
 #modinit int p_min,int p_max
 	if p_min>p_max : dialog "error min は max より大きいです",1:return
 	mem_min=p_min
 	mem_max=p_max
 	return
 #modcfunc in_range int _p
 	if mem_min <= _p{
 		if _p <= mem_max{ return 1 }
 	}
 	return 0
 #global
 
 #if 1
 newmod is_1keta,m_range,0,9
 
 repeat 20,-5
 mes "" + cnt + ":" + in_range(is_1keta,cnt)
 loop
 
 logmes "0 : "+'0'
 logmes "1 : "+'1'
 logmes "2 : "+'2'
 logmes "3 : "+'3'
 logmes "4 : "+'4'
 logmes "5 : "+'5'
 logmes "6 : "+'6'
 logmes "7 : "+'7'
 logmes "8 : "+'8'
 logmes "9 : "+'9'
 logmes ""
 newmod is_digit,m_range,'0','9'
 logmes "0 : " + in_range(is_digit,'0')
 logmes "1 : " + in_range(is_digit,'1')
 logmes "2 : " + in_range(is_digit,'2')
 logmes "3 : " + in_range(is_digit,'3')
 logmes "4 : " + in_range(is_digit,'4')
 logmes "5 : " + in_range(is_digit,'5')
 logmes "6 : " + in_range(is_digit,'6')
 logmes "7 : " + in_range(is_digit,'7')
 logmes "8 : " + in_range(is_digit,'8')
 logmes "9 : " + in_range(is_digit,'9')
 logmes "a : " + in_range(is_digit,'a')
 logmes "z : " + in_range(is_digit,'z')
 logmes "A : " + in_range(is_digit,'A')
 logmes "Z : " + in_range(is_digit,'Z')
 logmes ""
 newmod is_S_char,m_range,'a','z'
 logmes "0 : " + in_range(is_S_char,'0')
 logmes "9 : " + in_range(is_S_char,'9')
 logmes "A : " + in_range(is_S_char,'A')
 logmes "Z : " + in_range(is_S_char,'Z')
 logmes "a : " + in_range(is_S_char,'a')
 logmes "b : " + in_range(is_S_char,'b')
 logmes "c : " + in_range(is_S_char,'c')
 logmes "d : " + in_range(is_S_char,'d')
 logmes "e : " + in_range(is_S_char,'e')
 logmes "f : " + in_range(is_S_char,'f')
 logmes "g : " + in_range(is_S_char,'g')
 logmes "h : " + in_range(is_S_char,'h')
 logmes "i : " + in_range(is_S_char,'i')
 logmes "j : " + in_range(is_S_char,'j')
 logmes "k : " + in_range(is_S_char,'k')
 logmes "l : " + in_range(is_S_char,'l')
 logmes "m : " + in_range(is_S_char,'m')
 logmes "n : " + in_range(is_S_char,'n')
 logmes "o : " + in_range(is_S_char,'o')
 logmes "p : " + in_range(is_S_char,'p')
 logmes "q : " + in_range(is_S_char,'q')
 logmes "r : " + in_range(is_S_char,'r')
 logmes "s : " + in_range(is_S_char,'s')
 logmes "t : " + in_range(is_S_char,'t')
 logmes "u : " + in_range(is_S_char,'u')
 logmes "v : " + in_range(is_S_char,'v')
 logmes "w : " + in_range(is_S_char,'w')
 logmes "x : " + in_range(is_S_char,'x')
 logmes "y : " + in_range(is_S_char,'y')
 logmes "z : " + in_range(is_S_char,'z')
 logmes ""
 newmod is_L_char,m_range,'A','Z'
 logmes "0 : " + in_range(is_L_char,'0')
 logmes "9 : " + in_range(is_L_char,'9')
 logmes "a : " + in_range(is_L_char,'a')
 logmes "b : " + in_range(is_L_char,'b')
 logmes "A : " + in_range(is_L_char,'A')
 logmes "B : " + in_range(is_L_char,'B')
 logmes "C : " + in_range(is_L_char,'C')
 logmes "D : " + in_range(is_L_char,'D')
 logmes "E : " + in_range(is_L_char,'E')
 logmes "F : " + in_range(is_L_char,'F')
 logmes "G : " + in_range(is_L_char,'G')
 logmes "H : " + in_range(is_L_char,'H')
 logmes "I : " + in_range(is_L_char,'I')
 logmes "J : " + in_range(is_L_char,'J')
 logmes "K : " + in_range(is_L_char,'K')
 logmes "L : " + in_range(is_L_char,'L')
 logmes "M : " + in_range(is_L_char,'M')
 logmes "N : " + in_range(is_L_char,'N')
 logmes "O : " + in_range(is_L_char,'O')
 logmes "P : " + in_range(is_L_char,'P')
 logmes "Q : " + in_range(is_L_char,'Q')
 logmes "R : " + in_range(is_L_char,'R')
 logmes "S : " + in_range(is_L_char,'S')
 logmes "T : " + in_range(is_L_char,'T')
 logmes "U : " + in_range(is_L_char,'U')
 logmes "V : " + in_range(is_L_char,'V')
 logmes "W : " + in_range(is_L_char,'W')
 logmes "X : " + in_range(is_L_char,'X')
 logmes "Y : " + in_range(is_L_char,'Y')
 logmes "Z : " + in_range(is_L_char,'Z')
 #endif