# lotto.r - (c) Jussi Mäkinen, 2002-06-07

i <- 1; a <- NULL
while(length(unique(a)) != length(a) || length(a) != 7) {
        a[i] <- floor(runif(1) * 37) + 1
        if(length(unique(a)) == length(a)) i <- i + 1
}
sort(a)

# -- tai --
# a <- vector()
# p <- seq(1,37)
# for(i in 1:7) {
#     a[i] <- floor(runif(1) * 37) + 1
#     p <- setdiff(a[i], p)
# }
# a