再度トランプで

 投稿者:GAIメール  投稿日:2008年12月 1日(月)22時44分34秒
  トランプが続いてすみませんが、次の手順を再現できるプログラムができないでしょうか?
1.一組のカード(52枚)をまずよくシャッフルする。
2.デックを表向きに持ち、奇数のカードをアップジョグ(上にすこしずらす)していき
  これらのカード全てを抜き取り(順番を変えないで)、ボトム側へ回す。
3.上半分(偶数群)から4,8,Q のカードを、
  下半分(奇数群)から3,7,J のカードをアップジョグしていき、これらを抜き取り、ボトムへ
4.上三分の一位から2,10のカード
  中三分の一位からA,9のカード
  下三分の一位から7,8のカードをアップジョグして、これを抜き取りボトムへ
5.上から順に、6,5,4,3,2,Aのカードをアップジョグして抜き取りボトムへ
6.赤カードをアップジョグしてボトムへ
7.上半分(黒カード群)からクラブ、下半分(赤カード群)からダイアカードをアップジョグしてボトムへ
以上の手順を行なうと、デックは裏向きトップから
ダイア、クラブ、ハート、スペードの順に
A,2,3,・・・J,Q,k と揃う。(原理は2進法の応用)
これをどのカードを選びますか?
の質問を受けながら入力待ちとして(2番では奇数、6番では赤、7番ではマーク、他は数字)進行していけるようにしたい。
他の任意のカードの配列もこの方法を使って調べたいので、数字と色とマークが独立に選択できていけるよであればうれしいのですが...
 

Re: 再度トランプで

 投稿者:山中和義  投稿日:2008年12月 3日(水)11時06分36秒
  > No.139[元記事へ]

GAIさんへのお返事です。

> トランプが続いてすみませんが、次の手順を再現できるプログラムができないでしょうか?

> これをどのカードを選びますか?
> の質問を受けながら入力待ちとして(2番では奇数、6番では赤、7番ではマーク、他は数字)進行していけるようにしたい。


メニュー形式ではありませんが、再現するプログラムを試作してみました。
コーディング形式がマンネリなので、今回は「文字列操作」でカードの動きを実現しています。
また、ビジュアル表示も追加していますが、必要に応じてその部分を削除してください。
十進BASICは、ビットマップ画像の処理が苦手ですから処理速度は期待できません。


(実行画面)
 

戻る