Perfect shuffle: Difference between revisions
Content added Content deleted
ReeceGoding (talk | contribs) |
ReeceGoding (talk | contribs) m (→Sequence solution: Fixed weird lang tag problem.) |
||
| Line 2,215: | Line 2,215: | ||
{ |
{ |
||
n <- length(deck)#Assumed even (as in task description). |
n <- length(deck)#Assumed even (as in task description). |
||
shuffled <- array(n)#Maybe not as general as it could be, but the task said to use whatever was convenient. |
|||
shuffled[seq(from = 1, to = n, by = 2)] <- deck[seq(from = 1, to = n/2, by = 1)] |
|||
shuffled[seq(from = 2, to = n, by = 2)] <- deck[seq(from = 1 + n/2, to = n, by = 1)] |
|||
shuffled |
|||
new |
|||
} |
} |
||
task2 <- function(deck) |
task2 <- function(deck) |
||
{ |
{ |
||
shuffled <- deck |
|||
count <- 0 |
count <- 0 |
||
repeat |
repeat |
||
{ |
{ |
||
shuffled <- pShuffle(shuffled) |
|||
count <- count + 1 |
count <- count + 1 |
||
if(all( |
if(all(shuffled == deck)) break |
||
} |
} |
||
cat("It takes", count, "shuffles of a deck of size", length(deck), "to return to the original deck.","\n") |
cat("It takes", count, "shuffles of a deck of size", length(deck), "to return to the original deck.","\n") |
||