Wrote one last week, if anyone's interested. A bit longer, but it's pretty good. A bit inefficient...but whatever.
ClrHome 1->Z 1->Y 0->A 0->B For(K,1,25) randInt(1,6)->X If X=A Then randInt(1,5)->X If X=A 6->X End If B =/= 0 Then randInt(1,4)->X If X=2B or X=2B-1 Then 6-2B+X->X End 0->B End If abs(X-A)=1 Then If X+A=3 or X+A=7 or X+A=11 (X+A+1)/4->B End X->A If X=1 Output(Z,Y,"F") If X=2 Output(Z,Y,"B") If X=3 Output(Z,Y,"U") If X=4 Output(Z,Y,"D") If X=5 Output(Z,Y,"R") If X=6 Output(Z,Y,"L") If randInt(1,3) =/= 1 Then If randInt(2,3) = 2 Then Output(Z,Y+1,"2") Else Output(Z,Y+1,"'") End End Y+3->Y If Y>=15 Then 1->Y Z+1->Z End End One benefit this one has is that it won't do something like F B F2 Working on a cube solver right now... --- In [email protected], "Daniel Jih" <[EMAIL PROTECTED]> wrote: > > Here's the program, spent an hour trial and error writing it: Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/speedsolvingrubikscube/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
