Re: Card game deck but with trumps suit for tarot "divination" Is there a better way than enumerating all cards?

["Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>]

On 01/28/2018 10:23 AM, bozovic.bojan@gmail.com wrote:
>>
>>     type Card (Trump : Boolean) is
>>        record
>>           case Trump is
>>              when True =>
>>                 Trump_Value : Major_Arcana;
>>              when False =>
>>                 Suit        : Suits;
>>                 Value       : Values;
>>        end record;

With the addition of the missing "end case;" and a default for the discriminant 
so you can have an array of this type, this is the way I'd approach it.

> Thanks for the input, I'll look into your suggestion, but the main problem is each card has its "divinatoy meaning". I've used Tarot_Card_Position because it makes more sense to shuffle deck indexed in integer than in enumeration type and draw then a number of cars from it. But I know I wrote some awful code, as I really have little experience and no formal education.

Yes, a deck is a sequence of cards; representing it as an array means the index 
values are meaningless. While the deck starts out with 78 cards, after dealing 
some cards it is shorter, so something like

Max_Cards : constant := 78;

subtype Deck_Length is integer     range 0 .. Max_Cards;
subtype Deck_Index  is Deck_Length range 1 .. Max_Cards;

type Deck_List is array (Deck_Index range <>) of Card_Info;

type Deck_Info (Length : Deck_Length := 0) is record
    Deck : Deck_List (1 .. Length);
end record;

would make sense.

You might want to look at PragmARC.Deck_Handler which has already dealt with 
these issues.

https://github.com/jrcarter/PragmARC

-- 
Jeff Carter
"We use a large, vibrating egg."
Annie Hall
44