コメント - Rmake

コメントの内容

とりか(投稿日：2013/01/30 00:01/30/13)

Q=0
W=0
X=0
Y=0
CheckST = 5
#何連続の数字か
b=6

while b > 0
 a=0
 W=0
 while a < 5
  if getVariable("ダイス")[a]==b
   W=1     
  end
  a=a+1
 end
 if W==1
  X=X+1
  Y=b
 else
  X=0
 end
 b=b-1 
end

b=Y
if X == CheckST
 while b < 7
  a=0
  while a < 5
   if getVariable("ダイス")[a]==b
     Q=Q+1
    end
   end
   a=a+1
  end
  b=b+1
 end
 if Q>4
  speak("ストレートが揃っている")
 else
  speak("ストレートはそろっていない")
 end

end

CheckST　の値を５から4に減らすと
セミストレート[1,2,3,4][2,3,4,5][3,4,5,6]にも応用可能ではないかと思われる
動作未確認

コメントの内容(一番最初の投稿)

とりか(投稿日：2013/01/30 00:01/30/13)

Q=0
W=0
X=0
Y=0
CheckST = 5
#何連続の数字か
b=6

while b > 0
 a=0
 W=0
 while a < 5
  if getVariable("ダイス")[a]==b
   W=1     
  end
  a=a+1
 end
 if W==1
  X=X+1
  Y=b
 else
  X=0
 end
 b=b-1 
end

b=Y
if X == CheckST
 while b < 7
  a=0
  while a < 5
   if getVariable("ダイス")[a]==b
     Q=Q+1
    end
   end
   a=a+1
  end
  b=b+1
 end
 if Q>4
  speak("ストレートが揃っている")
 else
  speak("ストレートはそろっていない")
 end

end

CheckST　の値を５から4に減らすと
セミストレート[1,2,3,4][2,3,4,5][3,4,5,6]にも応用可能ではないかと思われる
動作未確認