| Original Message (ID '278315') By Bill Simpson: |
| In Response To 'Re: Re: Colored checkerboard'
---------
I apologize for my error. There is some copy and paste error that rarely happens when I try to format notebook contents and I have not been able to find exactly what I am doing wrong.
In[1]:= size=2;count=0;
While[True,t=RandomInteger[3, {2, 2}];
success=True;count++; For[i=1,i≤size,i++,For[j=1,j≤size,j++,If[i>1&&t[[i,j]]==t[[i-1,j]]||
i1&&t[[i,j]]==t[[i,j-1]]||
j1&&t[[i,j]]==t[[i-1,j]]||
i1&&t[[i,j]]==t[[i,j-1]]||
j |
|
