so-o.org

A deck of cards

Includes the definitions of the data types and the signatures of the functions of the Object Layer. Declares the class Deck and the function defclassDeck which builds it.

Includes the signatures of the So-o functions. Includes the declarations of the class Deck. Defines the class Deck.

init has 1 argument, a flag which indicates if the deck is automatically shuffled when all the cards have been drawn. It initializes the property shuffleWhenEmpty of self with the value of this parameter, then is allocates a container of type list, fills it with the 52 cards of a whole deck and initializes the property cards of self with it. It initializes the property top of self which points to card which will be drawn next to 0.

free frees all the cards of self then the list which contained them.

shuffle shuffles the list which contains the cards of self and resets its property top to 0.

deal returns the card on the top of the deck of cards of self and sets the value of its property top to the position of the next card in the deck. If all the cards of deck have been drawn, the property top of self is reset to 0 and if the flag shuffleWhenEmpty of self is true, the deck is shuffled.

hand returns a new hand of 5 cards drawn from self.

setHand initializes the hand passed as a parameter to 5 cards drawn from self.

toString returns a string showing the list of all the cards in self and the card which will be drawn next. This string is formatted in a static area. It must be used before this method is called again.

Initializes the class Deck. The class Deck inherits from the class Object. An instance has 3 propertie: cards, the 52 cards of the deck, top, the number of the card on the top of the deck, and shuffleWhenEmpty which indicates if the deck is automatically shuffled when all the cards have been drawn. An instance redefines the messages init, free and toString. It implements the messages shuffle, deal, hand and setHand.

TEST

Compile and run the unitary test:

$ make test-Deck
gcc -g -I.. -Wno-missing-braces -O -fstrength-reduce -finline-functions -fomit-frame-pointer -c test-Deck.c
gcc -g -I.. -Wno-missing-braces -O -fstrength-reduce -finline-functions -fomit-frame-pointer -c Deck.c
gcc -g test-Deck.o Deck.o Hand.o Card.o ../libso-o.a -o test-Deck$ test-Deck
$ test-Deck

Total non-mmapped bytes (arena):       675840
# of free chunks (ordblks):            1
Total allocated space (uordblks):      555616
Total free space (fordblks):           120224
Topmost releasable block (keepcost):   120096

2c -> 2c,3c,4c,5c,6c,7c,8c,9c,Tc,Jc,Qc,Kc,Ac,2d,3d,4d,5d,6d,7d,8d,9d,Td,Jd,Qd,Kd,Ad,2h,3h,4h,5h,6h,7h,8h,9h,Th,Jh,Qh,Kh,Ah,2s,3s,4s,5s,6s,7s,8s,9s,Ts,Js,Qs,Ks,As
2c
3c
Js -> Js,Jc,7d,Ad,Ks,8h,6c,8c,Qh,4d,Qd,Qc,5d,3c,7h,Ah,5h,2d,2s,9h,Ac,7s,Ts,6h,Kh,8s,8d,5c,3d,Qs,9d,7c,4h,Tc,6s,Jh,2c,Td,As,Kd,Jd,4c,Kc,5s,9s,4s,2h,9c,6d,Th,3s,3h
Js,Jc,7d,Ad,Ks -> ONEPAIR
8h,6c,8c,Qh,4d -> ONEPAIR
Qd,Qc,5d,3c,7h -> ONEPAIR
Ah,5h,2d,2s,9h -> ONEPAIR
Ac,7s,Ts,6h,Kh -> NOTHING
8s,8d,5c,3d,Qs -> ONEPAIR
9d,7c,4h,Tc,6s -> NOTHING
Jh,2c,Td,As,Kd -> NOTHING
Jd,4c,Kc,5s,9s -> NOTHING
4s,2h,9c,6d,Th -> NOTHING
Dealing 1000000 hands.......... in 3.27 s!
       NOTHING -> 50.63% 506317
       ONEPAIR -> 41.51% 415135
      TWOPAIRS ->  4.46% 44609
   THREEOFKIND ->  2.35% 23460
      STRAIGHT ->  0.49% 4896
         FLUSH ->  0.25% 2516
     FULLHOUSE ->  0.15% 1465
    FOUROFKIND ->  0.03% 306
 STRAIGHTFLUSH ->  0.13% 1296

Total non-mmapped bytes (arena):       675840
# of free chunks (ordblks):            1
Total allocated space (uordblks):      561232
Total free space (fordblks):           114608
Topmost releasable block (keepcost):   32352

SEE ALSO

Card, Hand

• Facebook
• X
• LinkedIn