決め打ちで3種類関数にしました
#module #defcfunc is_digit int _p if '0' <= _p{ if _p <= '9'{ return 1 } } return 0 #defcfunc is_S_char int _p if 'a' <= _p{ if _p <= 'z'{ return 1 } } return 0 #defcfunc is_L_char int _p if 'A' <= _p{ if _p <= 'Z'{ return 1 } } return 0 #global #if 1 mes "0 : "+is_digit('0') mes "5 : "+is_digit('5') mes "9 : "+is_digit('9') mes "a : "+is_digit('a') mes "x : "+is_digit('x') mes "z : "+is_digit('z') mes "A : "+is_digit('A') mes "X : "+is_digit('X') mes "Z : "+is_digit('Z') mes "0 : "+is_S_char('0') mes "5 : "+is_S_char('5') mes "9 : "+is_S_char('9') mes "a : "+is_S_char('a') mes "x : "+is_S_char('x') mes "z : "+is_S_char('z') mes "A : "+is_S_char('A') mes "X : "+is_S_char('X') mes "Z : "+is_S_char('Z') mes "0 : "+is_L_char('0') mes "5 : "+is_L_char('5') mes "9 : "+is_L_char('9') mes "a : "+is_L_char('a') mes "x : "+is_L_char('x') mes "z : "+is_L_char('z') mes "A : "+is_L_char('A') mes "X : "+is_L_char('X') mes "Z : "+is_L_char('Z') #endif