問題点とか指摘してくれるとありがたいです。
#module "testgdc" #defcfunc gdc int ia,int ib if ia>=ib:a=ia:b=ib if ia<ib:a=ib:b=ia if b=0:return a repeat c = a \ b ;mes "a "+a+" b "+b+" c "+c if c == 0:break a==b:b==c loop return b #defcfunc lcm int ia,int ib return (ia*ib)/gdc(ia,ib) #global