Obrigado professor!

ideias:

sim <- sample(1:10)
which(sim == 1:10)


On Thu, 16 Jun 2011, Mauro Sznelwar wrote:

>
> Como faço a simulação deste problema?
>
> Um baralho possui dez cartas numeradas de 1a 10. Após embaralhadas as cartas são viradas uma a uma, deixando
> aparecer a face com o número.
>
> Nós dizemos que ocorreu uma coincidência se a carta de número i é a i-ésima carta a ser virada. Considere a variável
> aleatória X que conta o número de coincidências. Escreva um algoritmo pra gerar de X.