FOR I=0TO 2A=RND(10)I=I*(A==B)B=A?A;:NEXT 41文字です