function encoded_message = encode_to_card(message)
% List of playing cards
cards = {'Ace of Hearts', '2 of Hearts', '3 of Hearts', '4 of Hearts', '5 of Hearts', ...
'6 of Hearts', '7 of Hearts', '8 of Hearts', '9 of Hearts', '10 of Hearts', ...
'Jack of Hearts', 'Queen of Hearts', 'King of Hearts', 'Ace of Diamonds', ...
'2 of Diamonds', '3 of Diamonds', '4 of Diamonds', '5 of Diamonds', ...
'6 of Diamonds', '7 of Diamonds', '8 of Diamonds', '9 of Diamonds', '10 of Diamonds', ...
'Jack of Diamonds', 'Queen of Diamonds', 'King of Diamonds', 'Ace of Clubs', ...
'2 of Clubs', '3 of Clubs', '4 of Clubs', '5 of Clubs', '6 of Clubs', ...
'7 of Clubs', '8 of Clubs', '9 of Clubs', '10 of Clubs', 'Jack of Clubs', ...
'Queen of Clubs', 'King of Clubs', 'Ace of Spades', '2 of Spades', ...
'3 of Spades', '4 of Spades', '5 of Spades', '6 of Spades', '7 of Spades', ...
'8 of Spades', '9 of Spades', '10 of Spades', 'Jack of Spades', 'Queen of Spades', ...
'King of Spades'};
% Encode the message
encoded_message = '';
for i = 1:length(message)
char_code = double(message(i));
card_index = mod(char_code, length(cards)) + 1;
encoded_message = strcat(encoded_message, cards{card_index}, ' ');
end
end
% Example usage
message = 'Hello, World!';
encoded_message = encode_to_card(message);
disp(encoded_message);