メニュー

最新の20件
2022-10-09 2021-05-19 2018-08-01 2018-07-31 2018-07-21 2018-07-11 2018-06-28 2018-06-23
total 6 today 1 yesterday 0 now 1

Menu

  • Total:6/Today:1

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