There is a mesage error I am not familiar with:
cardpackage.adb:17:29: error: must appear in the right-hand side of an assignment statement
cardpackage.adb:18:37: error: must appear in the right-hand side of an assignment statement
type Deck (Number: Card_Number := 0) is record
List: Array_Card(1..Number) := Initialize(Number);
end record;
__________________________________
procedure Deal (From, To: in out Deck; N: Card_Number) is
begin
From := (@.Number + N, To.List (To.List'Last-N+1..To.List'Last) & @.List); --17
To := (@.Number - N, @.list(@.List'First..@.List'Last-N)); --18
end Deal;
What do I miss ?