問題作成時、最初に浮かんだ方法です WHILE F-3R=RND(10)?R;:F=(F<<1OR P==R+1)AND 3P=R+1WEND (参考記録：53文字) 40文字台が出ている今では勝負になりませんが(笑)