My python one-liner scramble generator

[towwdso]

274 bytes
its a world record, I guess. (until someone do it on perl...)

c,a,l,f,g=__import__('random').choice,['FB','UD','RL'],[],lambda y:lambda x:x in y,lambda y:lambda x:x not in y;h=[l.append(c(filter(g(l[-1:]),c(filter(g(filter(f(a),[''.join(l[-2:][::x]) for x in [-1,1]])),a))))) for u in range(25)];print ' '.join([h+c(" '2",) for h in l])

It works. copy and paste onto python interpreter. Or save it on a .py file.
You could also tweak it to generate a lot of scrambles:

just put a

for n in range(12):

in the beggining,
and in DOS do:

scramble.py > output.txt

result:

file: output.txt
---------------------------------------------------------------------------------------
R' U2 D' L' R' D2 R2 U F B L' U B D F U' F' L' B' F' L' U2 D' R D2
B' U2 D2 F L R B' U2 D F' R F' R' B' F' R L2 D' B F D U R2 L2 U2
D2 U2 F L2 D F B' U D F B L' R' U' D' R2 F L2 D' U2 L2 B' R F U
L B' D U2 R2 B2 F' D' U2 L' F' B U' D F2 L' R B2 F2 U' D L' B U L'
F' U2 F2 B2 D' U L U2 B L B2 R F D2 R' U B2 L2 R' U2 D2 B U' L U
D U2 F U B2 L2 R U D2 R' U F' U L2 R B2 F' U R' D' B F' L' U L
R D2 U' R' F R L2 U' F' U' D' L2 D' B2 U' D' L R F2 D U2 F' B2 R L
D2 U' R U' L R F U' D R' U' F D R2 B' R' B2 R F' B2 U B F' L' U2
D2 U2 F B2 L' R2 U L2 U2 L2 D B' F U D' F B' D' U B' F' L D L' B'
D U' L' D' U' F' D' U2 L' R' B D2 F' B' L F' R' L2 F R U R B2 F U

EDIT:

from random import*;c=choice;w,l=['RL','UD','BF'],[]
for u in range(25):
 a=c(w)
 if sum([ord(x) for x in l[-2:]]) in [158,153,136]:
  while l[-1] in a:a=c(w)
 t=c(a)
 while l[-1:]==[t]:t=c(a)
 l=l+[t]

print ' '.join([x+c(" '2") for x in l])
============================================

from random import*;c=choice;w,l=['RL','UD','BF'],[]
def k():
 m=[y.replace(l[-1],'') for y in w] if l[-1:] else w
 h=[int(''.join(l[-2:]) in [x,x[::-1]]) for x in w]
 if 1 in h:m.pop(h.index(1))
 return m

for u in range(25):
 l.append(c(c(k())))

print ' '.join([x+c(" '2") for x in l])

first is 242 chars but is brute force.
second is 288 chars but is more pythonic.

[Zarxrax]

Technically, looks like about 3 lines
I need to learn some python so I can understand this.

[qqwref]

That's kind of horrible looking, and I'm not sure 275ish characters counts as a single line, but nice job.

EDIT: hey, since you're only using d once, could you do this?:

c,a,l,f,g=__import__('random').choice,['FB','UD','RL'],[],lambda y:lambda x:x in y,lambda y:lambda x:x not in y;h=[l.append(c(filter(g(l[-1:]),c(filter(g(filter(f(a),[''.join(l[-2:][::x]) for x in [-1,1]])),a))))) for u in range(25)];print ' '.join([h+c(" '2") for h in l])

[Lucas Garron]

its a world record, I guess. (until someone do it on perl...)

Or Mathematica.

StringJoin[ToString[#]<>(c=RandomChoice)[{" ","' ","2 "}]&/@(Flatten[RandomSample[#,Ceiling[Random[]*5/4]]&/@c[{{U,R},{F,B},{L,D}},25]]//.{a___,b_,b_,c___}:>{a,b,c})]

167 chars, still not tweetable. But I'm sure I could get it there, and coders like Stefan, Kociemba, or Rokicki could probably destroy us.

[PatrickJameson]

until someone do it on perl...

120 chars.

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

But yeah, like Lucas said, I'm sure there's a bunch of people who could destroy this, since mine is pretty basic.

Edit: 115

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

>_>

[VP7]

Is this open to all languages ?

[towwdso]

@qqref: yes, It was late night, I'll try to optmise the code some more now. mwahaha >
@VP7: yeah, it would be great too se your code.

ok guys, I don't have mathemathica or perl installed here (i had), but you know that the code should output a legal scramble right?
legal scramble: R L' U B U R2 L2 U B' L F2 ... etc
illegal scramble: U U' U2 U' U B F B F B F B F B2 B' B B B U R L' R R2 R R R R R R R R R R R ... you see what I mean

[aronpm]

you know that the code should output a legal scramble right?

I asked Patrick earlier; he said the scrambles are valid.

[joey]

I'm pretty sure Lucas and Patrick know what valid scrambles are :P

[towwdso]

lol