% Script ShowCards
% Deals out the cards from a "new" deck. Then
% perfect shuffles 8 times and re-deals

C = CardDeck();

[N,E,S,W] = Deal(C);

clc
for k=1:13
disp([N{k} ' ' E{k} ' ' S{k} ' ' W{k}]);
end

for i =1:8
C = Shuffle(C);
end

fprintf('\n After 8 perfect shuffles...\n')

[N,E,S,W] = Deal(C);

for k=1:13
disp([N{k} ' ' E{k} ' ' S{k} ' ' W{k}]);
end