[TIB] Re: euchre for 83+

To: ti-basic@lists.ticalc.org
Subject: [TIB] Re: euchre for 83+
From: robvanwijk@gmx.net
Date: Mon, 11 Nov 2002 12:18:11 +0100 (MET)
References: <002e01c287b2$8eeb50f0$53783318@g0r9z3>
Reply-To: ti-basic@lists.ticalc.org


>  
> hi.. im trying to write my own euchre program.. but im not completely sure
> how i would go about getting only one of each card... i was trying to
> store each player to list 1,2,3,4.. each list would have 6 cell's used.
but the
> 6th cell would be what is used in the kitty. if anyone has any idea.
> please let me know.. thanks
> 

I don't know what euchre and kitty are, but if you want to shuffle and deal
a bunch of cards, this would so the trick:

seq(C,C,1,52)->lCARDS (generate a stack of 52 cards)
For(S,52,1,-1)            (this should shuffle them)
  randInt(1,S)->R
  lCARDS(R)->T
  lCARDS(S)->lCARDS(R)
  T->lCARDS(S)
End

lCARDS now is a list of shuffled cards.

Hope that helps,
Rob van Wijk

-- 
+++ GMX - Mail, Messaging & more  http://www.gmx.net +++
NEU: Mit GMX ins Internet. Rund um die Uhr für 1 ct/ Min. surfen!

References:

[TIB] euchre for 83+

From: "nepluto" <nepluto@adelphia.net>

Prev: [TIB] Re: Question
Next: [TIB] 92 and v200
Index(es):
- Main
- Thread