The Ada Program: deck_package.ads

  1 with Card_Package;
  2 
  3 package Deck_Package is
  4    Size : constant Integer := 4 * 13;
  5    subtype Deck_Range is Integer range 1..Size;
  6    type Deck_Type is array (Deck_Range) of Card_Package.Card_Type;
  7    Deck: Deck_Type;
  8    procedure Shuffle;
  9 end Deck_Package;