Return to Answer

added 1 character in body

edited Jun 11, 2018 at 18:34

edited Jun 11, 2018 at 18:34

R, 6765 bytes

c(outer(c('A',2:10,J<-'J','Q','K'),c('S','D','H','C'),paste0paste),'J'J,'J'J)

-2 Bytes thanks to @Giuseppe and @JayCe suggestions

c(outer(c('A',2:10,'J','Q','K'),c('S','D','H','C'),paste0),'J','J')

c(outer(c('A',2:10,J<-'J','Q','K'),c('S','D','H','C'),paste),J,J)

-2 Bytes thanks to @Giuseppe and @JayCe suggestions

answered Jun 11, 2018 at 12:34

answered Jun 11, 2018 at 12:34

c(outer(c('A',2:10,'J','Q','K'),c('S','D','H','C'),paste0),'J','J')