My python one-liner scramble generator

guzman · Nov 14, 2010

Using the empty space of the 'for' we can gain one character more:
121 characters:

Code:

r=Math.random;for(c=b=j=0;j<25;c+b==5&&c==m||b==m||(c=b,b=m,j++,document.write("URFBLD"[m]+" 2'"[0|r()*3]+" ")))m=0|r()*6

It is interesting that the code is not so involved, it is still quite readable and linear in its structure.

EDIT: 115 characters

Code:

r=Math.random;for(c=b=j=0;j<25;c+b==5&c==m|b==m||document.write("URFBLD"[j++,c=b,b=m]+" 2'"[0|r()*3]+" "))m=0|r()*6

(111 if we accept uneven spaces in the output).

Johannes91 · Nov 14, 2010

qqwref, guzman: Nice!

Shortened Patrick's Perl a bit, from 115 to 107:

Code:

map{$m=int rand 6until($c+$b-5||$c-$m)&&$m-$b;print+(U,R,F,B,L,D)[$m].qw(' 2)[rand 3]." ";$c=$b;$b=$m}1..25

Marcell · Nov 14, 2010

My try:
127 characters in php.

Code:

<?$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if(($b!=$m=rand(0,5))&($c+$b!=5||$c!=$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

Edit: 123.

Code:

<?$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if(($b-$m=rand(0,5))&($c+$b-5|$c-$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

Carrot · Nov 14, 2010

Edit: nothing in this post worked... xD

Marcell · Nov 14, 2010

122 characters.

Code:

<?$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if(($b-$m=rand()%6)&($c+$b-5|$c-$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

Also, here's Johannes' code implemented in php - ironically enough this one is 122 chars as well.

Code:

<?$M="URFBLD 2'";$b=$c=0;for($i=0;$i<25;$i++){while(!($b-$m=rand()%6&($c+$b-5|$c-$m)));echo$M[$b=$m].$M[rand(6,8)].' ';}?>

guzman · Nov 14, 2010

Marcell said:
122 characters.

Code:

<?$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if(($b-$m=rand()%6)&($c+$b-5|$c-$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

Also, here's Johannes' code implemented in php - ironically enough this one is 122 chars as well.

Code:

<?$M="URFBLD 2'";$b=$c=0;for($i=0;$i<25;$i++){while(!($b-$m=rand()%6&($c+$b-5|$c-$m)));echo$M[$b=$m].$M[rand(6,8)].' ';}?>

Nice.
I think there's place for improvement in your php code.
I dont have a php compiler installed but I think that you can use many of the ideas in our javascript code:
you can initiate b and c inside the for: for($b=$c=$i=0;....),
you can avoid the while by justing letting the for cicle until it finds a good case (and increase i only in that case).

You should get very close to 110.

Marcell · Nov 14, 2010

Smart!
114 now:

Code:

<?$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if($b-$m=rand()%6&($c+$b-5|$c-$m)){echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

I'm afraid php doesn't let me leave out the "if" statement.
Also, I did initiate b and c in the for loop in my first code, but forgot to do so in the second. Thanks for pointing that out.
BTW I don't have a php compiler either, I let it run on a web server.

guzman · Nov 14, 2010

Marcell said:
114 now

Nice

Marcell said:
I'm afraid php doesn't let me leave out the "if" statement.

I realized that and edited my post but you had already read.

guzman · Nov 14, 2010

Marcell said:
Smart!
114 now:

Code:

<?$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if($b-$m=rand()%6&($c+$b-5|$c-$m)){echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

Some improvements:
112 considering tags or 108 not considering them (as in javascript):

Code:

for($i=$b=$c=0;$i<25;$M="URFBLD 2'")if($b-$m=rand()%6&($c+$b-5|$c-$m))echo$M[$b=$m].$M[rand(6,8+0*$i++)].' '

Edit: but there was an error in your code and I copied it. So this isn't valid.

Marcell · Nov 14, 2010

Uhh, I'm confused. At some point I somehow left out the "c=b" part, which I now think I shouldn't have done. Still, I see no corrupt scrambles in the output: http://kerulo.uw.hu/miniscr/miniscr2.php
Thoughts?

guzman · Nov 14, 2010

You're right !!

my code also has the same error cause I started from yours and I didn't check,
but actually I don't see wrong scrambles ...

EDIT: wrong scrambles do appear.

Stefan · Nov 14, 2010

75 bytes:

print "F' D B2 L B R2 B2 L R' D' R' F L' R' U2 L B2 U2 D' F' R' U2 B L2 F'"
// chosen by fair dice rolls. guaranteed to be random.

StachuK1992 · Nov 14, 2010

Haha, Stefan! I was expecting some crazy cryptic code, then was all "...wait..that's not.."

Marcell · Nov 14, 2010

@StachuK1992: Just like me.

@guzman: Oh well. 120 characters then. *sigh*

Code:

<?$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if($b-$m=rand()%6&($c+$b-5|$c-$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

Edit: but I'm not sure whether I'm obliged to count the <? and ?> tags as well. I mean, you didn't count the <script></script> either.
Edit2: never mind. I didn't see your edited post. So I think it's fair to say that it's 116 characters long:

Code:

$M="URFBLD 2'";for($i=$b=$c=0;$i<25;)if($b-$m=rand()%6&($c+$b-5|$c-$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}

Edit3: however your idea about nesting the $M="..." into the for statement was actually valid. 115 characters:

Code:

for($i=$b=$c=0;$i<25;$M="URFBLD 2'")if($b-$m=rand()%6&($c+$b-5|$c-$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}

Marcell · Nov 14, 2010

Crap, I'm still getting wrong scrambles. No idea why.

Edit: I see. I lost track of those brackets. It should be fine now. But now it's 121.

Code:

<?for($i=$b=$c=0;$i<25;$M="URFBLD 2'")if(($b-$m=rand()%6)&($c+$b-5|$c-$m)){$c=$b;echo$M[$b=$m].$M[rand(6,8)].' ';$i++;}?>

CharlesOBlack · Nov 14, 2010

anyone care to explain what the general idea is behind a scramble program?

StachuK1992 · Nov 14, 2010

CharlesOBlack said:
anyone care to explain what the general idea is behind a scramble program?

Really?

EricReese · Nov 14, 2010

StachuK1992 said:
Really?

R O F L
O
F
L

CharlesOBlack · Nov 14, 2010

StachuK1992 said:
Really?

yes, really.

guzman · Nov 14, 2010

CharlesOBlack said:
anyone care to explain what the general idea is behind a scramble program?

- the program has to give a sequence of 25 letters chosen randomly amogn RFULBD,
- each letter appears with an "exponent" chosen ramdomly among 1,2,3: that is, for instance R may appear as R, R2 or R',
- consecutive letters cannot be the same
- if R follows L, the next letter cannot be L again (and similarly for the other opposite letters in whatever form they appear).

that's it.

Thread starter	Similar threads	Forum	Replies	Date
	"Singmaster" to "Cubestring" conversion	Software Area	4	Nov 15, 2022
	Finding the best 2-look ZBLL method	General Speedcubing Discussion	32	Apr 30, 2020
	Python Cube Project	Software Area	114	Mar 31, 2020
	3x3x3 Solver in Python	Software Area	4	May 3, 2017
J	My CSTimer to Excel, Python Converter	Software Area	9	Aug 4, 2016

My python one-liner scramble generator

Member

Member

Member

Member

Member

Member

Member

Member

Member

Member

Member

Member

statue

Member

Member

Member

statue

Member

Member

Member