いつもロト6が当たらない、とぼやいている人がいたので、いたたまれなくなって、作ってみました。
当たるといいですね！
LOTO6 <- function(x,y,z,v,w){
x <- order(runif(43))[1:6]
x[order(x)]
}
使い方
Rを起動して
LOTO6()
のカッコの中に、必要事項を記入して下さい。
日付を入れてみたり
> LOTO6("2014年5月22日")
[1] 13 20 28 31 37 43
販売所を入れてみたり
> LOTO6("富士吉田のイオン")
[1] 1 3 18 34 37 40
買った人の名前を入れてみたり（5人まで可）
> LOTO6("田村","福田","木本","武藤")
[1] 2 5 8 26 29 34
