怎么把这个汉字和数字倒过来呀?这看的我好难受
程序;
suit = {"红心", "黑桃", "梅花", "方块"};
rant = Join[{"A"}, Range[2, 10], {"J", "Q", "K"}];
deck = Table[Table[ suit[[i]]rant[[k]], {i, 4}], {k, 13}]
结果:
{{红心 A, 黑桃 A, 梅花 A, 方块 A}, {2 红心, 2 黑桃, 2 梅花, 2 方块}, {
3 红心, 3 黑桃, 3 梅花, 3 方块}, {4 红心, 4 黑桃, 4 梅花, 4 方块}, {
5 红心, 5 黑桃, 5 梅花, 5 方块}, {6 红心, 6 黑桃, 6 梅花, 6 方块}, {
7 红心, 7 黑桃, 7 梅花, 7 方块}, {8 红心, 8 黑桃, 8 梅花, 8 方块}, {
9 红心, 9 黑桃, 9 梅花, 9 方块}, {10 红心, 10 黑桃, 10 梅花, 10 方块}, {红心 J, 黑桃
J, 梅花 J, 方块 J}, {红心 Q, 黑桃 Q, 梅花 Q, 方块 Q}, {红心 K, 黑桃 K, 梅花 K, 方块 K}}
程序;
suit = {"红心", "黑桃", "梅花", "方块"};
rant = Join[{"A"}, Range[2, 10], {"J", "Q", "K"}];
deck = Table[Table[ suit[[i]]rant[[k]], {i, 4}], {k, 13}]
结果:
{{红心 A, 黑桃 A, 梅花 A, 方块 A}, {2 红心, 2 黑桃, 2 梅花, 2 方块}, {
3 红心, 3 黑桃, 3 梅花, 3 方块}, {4 红心, 4 黑桃, 4 梅花, 4 方块}, {
5 红心, 5 黑桃, 5 梅花, 5 方块}, {6 红心, 6 黑桃, 6 梅花, 6 方块}, {
7 红心, 7 黑桃, 7 梅花, 7 方块}, {8 红心, 8 黑桃, 8 梅花, 8 方块}, {
9 红心, 9 黑桃, 9 梅花, 9 方块}, {10 红心, 10 黑桃, 10 梅花, 10 方块}, {红心 J, 黑桃
J, 梅花 J, 方块 J}, {红心 Q, 黑桃 Q, 梅花 Q, 方块 Q}, {红心 K, 黑桃 K, 梅花 K, 方块 K}}
