MODU ざざん

#uselib "msvcrt"
#cfunc strtol "strtol" str, nullptr, int

#module
#defcfunc get_12to01 str p_str,local p_tmp,local _2sinn_ar,local tmp_l,local tmp4peek,local r_str
;p_tmp="112212"
p_tmp=p_str
dim _2sinn_ar,40
tmp_l=strlen(p_tmp)
;mes tmp_l
repeat tmp_l
tmp4peek=peek(p_tmp,cnt)
if tmp4peek=='1':_2sinn_ar.cnt='0'
if tmp4peek=='2':_2sinn_ar.cnt='1'
loop
sdim r_str,40
repeat tmp_l
poke r_str,cnt,_2sinn_ar.cnt
loop

return r_str
#defcfunc get_pm str p_str,local tmp_str,local _4peek
tmp_str=p_str
_4peek=peek(tmp_str,0)
if _4peek='1':return 1
if _4peek='2':return -1
return -2//error
#global
str_a="1112212"
str_aa=strmid(str_a,0,1)
l_str_a=strlen(str_a)
str_ab=strmid(str_a,-1,(l_str_a-1))
mes str_aa
mes str_ab
mes get_12to01(str_ab)
mes strtol(get_12to01(str_ab), 2)
mes strtol(get_12to01(str_ab), 2)*get_pm(str_aa)

str_b="2112212"
str_ba=strmid(str_b,0,1)
l_str_b=strlen(str_b)
str_bb=strmid(str_b,-1,(l_str_b-1))
mes str_ba
mes str_bb
mes get_12to01(str_bb)
mes strtol(get_12to01(str_bb), 2)
mes strtol(get_12to01(str_bb), 2)*get_pm(str_ba)