Perfect shuffle: Difference between revisions
m
→{{header|R}}: Syntax highlighting.
(Added solution for Action!) |
ReeceGoding (talk | contribs) m (→{{header|R}}: Syntax highlighting.) |
||
Line 2,189:
=={{header|R}}==
===Matrix solution===
<lang
deck <- 1:n ## create the original deck
new.deck <- c(matrix(data = deck, ncol = 2, byrow = TRUE)) ## shuffle the deck once
Line 2,211:
===Sequence solution===
The previous solution exploits R's matrix construction; This solution exploits its array indexing.
<lang
pShuffle<-function(deck)
{
| |||