Dice-4a.r

rolls<-function() #function
{
	x<-sample(1:6,1);y<-sample(1:6,1)	 #roll twice
	i=2					 #set the roll counter
  	while(abs(x-y)>1) #while their absolute diff is more than 1
  	{
		x<-y;y<-sample(1:6,1)	 #replace the second roll with the first one and roll
    		i=i+1			 #increase the counter
	}
	return(i) #return no. of rolls
}