Dice-10.r

rolls<-function(n) #function
{
	x<-sample(1:6,n,replace=T) #roll n times
	return(all(x==sort(x))) #return if all the values are in a
	#non-decreasing sequence or not
}