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

[Jacob Sparre Andersen <jacob@jacob-sparre.dk>]

bozovic.bojan@gmail.com writes:

> These cards contain of 4 suits of 14 cards each, and special "trump"
> so called "major arcana" cards, 22 of them, for total of 78 cards. I
> created enumeration type and listed all 78 cards (with Tarot_Card'Pos
> of course 0..77 an Tarot_Card_Position in that range, and Deck as
> array(Tarot_Card_Position) of Card_Properties record with name and
> meaning fields. Using Ada.Numerics.Discrete_Random it works, but I
> wonder if better solution is possible)! When I've tried to make 4
> suits of 14 cards and 22 cards in trump "suit" I however failed to see
> a solution and how I would iterate over such type, so I wonder if that
> route is possible. Thanks!

Why the mess with the type "Tarot_Card_Position"?  You can make arrays
over enumeration types.

It sound like your problem space doesn't quite match a single
enumeration type, though.  Maybe you really need a variant record?

   type Card (Trump : Boolean) is
      record
         case Trump is
            when True =>
               Trump_Value : Major_Arcana;
            when False =>
               Suit        : Suits;
               Value       : Values;
      end record;

The naming is horrible, and the code is untested, but I hope you get the
idea.

Greetings,

Jacob
-- 
"Good enough for physics" -- Ridcully