Return to Answer

deleted 90 characters in body

edited Jun 14, 2018 at 7:44

edited Jun 14, 2018 at 7:44

Perl 5, 4841 bytes

sub{<{A,2,3,4,5,6,7,8,9,10,J,QJ,K}map<"$_"{S,D,H,C}>,JA,2..10,J,Q,K}

sub{<{A,2,3,4,5,6,7,8,9,10,J,Q,K}{S,D,H,C}>,J,J}

sub{J,J,map<"$_"{S,D,H,C}>,A,2..10,J,Q,K}

answered Jun 11, 2018 at 10:25

answered Jun 11, 2018 at 10:25

sub{<{A,2,3,4,5,6,7,8,9,10,J,Q,K}{S,D,H,C}>,J,J}