# Losowanie jednostajne permutacji zbioru 1:n. 
# To tylko cwiczenie w programowaniu, bo mozna prosciej: sample(n)  
rperm=function(n){ 
  x=1:n; a=NULL
  for(i in n:2){
    j=max(ceiling(i*runif(1)),1) 
    a=c(a,x[j]); x=x[-j]
  }
  c(a,x) 
}