Problem 1138. Rubik's Cube: 30 Moves or Less: Minimum Avg Time

Solution 1088659

Submitted on 23 Dec 2016 by Richard Zapor

Size: 3756
Leading solution size is 3756.

This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

Solve This Problem View on Solution Map

Test Suite

Test	Status	Code Input and Output
1	Pass	% Thanks to Alfonso Nieto-Castanon urlwrite('https://sites.google.com/a/alfnie.com/alfnie/software/SetSolutionScore.p?attredirects=0&d=1','SetSolutionScore.p'); rehash path;
2	Pass	%feval(@assignin,'caller','score',20000); % msec
3	Pass	vf=[ 17 2 3 20 5 22 7 8 11 13 16 10 15 9 12 14 41 18 19 44 21 46 23 24 25 26 27 28 29 30 31 32 33 34 6 36 4 38 39 1 40 42 43 37 45 35 47 48; 1 2 3 4 5 25 28 30 9 10 8 12 7 14 15 6 19 21 24 18 23 17 20 22 43 26 27 42 29 41 31 32 33 34 35 36 37 38 39 40 11 13 16 44 45 46 47 48 ; 1 2 38 4 36 6 7 33 9 10 11 12 13 14 15 16 17 18 3 20 5 22 23 8 27 29 32 26 31 25 28 30 48 34 35 45 37 43 39 40 41 42 19 44 21 46 47 24 ; 3 5 8 2 7 1 4 6 33 34 35 12 13 14 15 16 9 10 11 20 21 22 23 24 17 18 19 28 29 30 31 32 25 26 27 36 37 38 39 40 41 42 43 44 45 46 47 48 ; 14 12 9 4 5 6 7 8 46 10 11 47 13 48 15 16 17 18 19 20 21 22 23 24 25 26 1 28 2 30 31 3 35 37 40 34 39 33 36 38 41 42 43 44 45 32 29 27 ; 1 2 3 4 5 6 7 8 9 10 11 12 13 22 23 24 17 18 19 20 21 30 31 32 25 26 27 28 29 38 39 40 33 34 35 36 37 14 15 16 43 45 48 42 47 41 44 46 ; 40 2 3 37 5 35 7 8 14 12 9 15 10 16 13 11 1 18 19 4 21 6 23 24 25 26 27 28 29 30 31 32 33 34 46 36 44 38 39 41 17 42 43 20 45 22 47 48 ; 1 2 3 4 5 16 13 11 9 10 41 12 42 14 15 43 22 20 17 23 18 24 21 19 6 26 27 7 29 8 31 32 33 34 35 36 37 38 39 40 30 28 25 44 45 46 47 48 ; 1 2 19 4 21 6 7 24 9 10 11 12 13 14 15 16 17 18 43 20 45 22 23 48 30 28 25 31 26 32 29 27 8 34 35 5 37 3 39 40 41 42 38 44 36 46 47 33 ; 6 4 1 7 2 8 5 3 17 18 19 12 13 14 15 16 25 26 27 20 21 22 23 24 33 34 35 28 29 30 31 32 9 10 11 36 37 38 39 40 41 42 43 44 45 46 47 48 ; 27 29 32 4 5 6 7 8 3 10 11 2 13 1 15 16 17 18 19 20 21 22 23 24 25 26 48 28 47 30 31 46 38 36 33 39 34 40 37 35 41 42 43 44 45 9 12 14 ; 1 2 3 4 5 6 7 8 9 10 11 12 13 38 39 40 17 18 19 20 21 14 15 16 25 26 27 28 29 22 23 24 33 34 35 36 37 30 31 32 46 44 41 47 42 48 45 43 ; 41 2 3 44 5 46 7 8 16 15 14 13 12 11 10 9 40 18 19 37 21 35 23 24 25 26 27 28 29 30 31 32 33 34 22 36 20 38 39 17 1 42 43 4 45 6 47 48 ; 1 2 3 4 5 43 42 41 9 10 30 12 28 14 15 25 24 23 22 21 20 19 18 17 16 26 27 13 29 11 31 32 33 34 35 36 37 38 39 40 8 7 6 44 45 46 47 48 ; 1 2 43 4 45 6 7 48 9 10 11 12 13 14 15 16 17 18 38 20 36 22 23 33 32 31 30 29 28 27 26 25 24 34 35 21 37 19 39 40 41 42 3 44 5 46 47 8 ; 8 7 6 5 4 3 2 1 25 26 27 12 13 14 15 16 33 34 35 20 21 22 23 24 9 10 11 28 29 30 31 32 17 18 19 36 37 38 39 40 41 42 43 44 45 46 47 48 ; 48 47 46 4 5 6 7 8 32 10 11 29 13 27 15 16 17 18 19 20 21 22 23 24 25 26 14 28 12 30 31 9 40 39 38 37 36 35 34 33 41 42 43 44 45 3 2 1 ; 1 2 3 4 5 6 7 8 9 10 11 12 13 30 31 32 17 18 19 20 21 38 39 40 25 26 27 28 29 14 15 16 33 34 35 36 37 22 23 24 48 47 46 45 44 43 42 41 ]; cube_orig=[zeros(1,8) ones(1,8) ones(1,8)2 ones(1,8)3 ones(1,8)4 ones(1,8)5]; tsum=0; Lbest=30; for cube_sets=1:4 if cube_sets==2,tsum=0;end encode=randi(18,1,80); fprintf('Encode: ');fprintf('%i ',encode);fprintf('\n') r=cube_orig; for i= encode r=r(vf(i,:)); end encode=[]; % anti-shortcut encode_str=''; cube=r; fprintf('%i',r);fprintf('\n') % Time function ta=clock; [v]=Rubik_Solver(cube); t1=etime(clock,ta)*1000; % time in msec tsum=tsum+t1; Lv=length(v); assert(Lv<=30) fprintf('Time: %.0f msec Total Time %.0f\n',t1,tsum) fprintf('Solution length %i\n',length(v)) fprintf('%i ',v);fprintf('\n') r=cube; for i=v r=r(vf(i,:)); end fprintf('Solved Cube\n');fprintf('%i',r);fprintf('\n') tf=isequal(r,cube_orig); fprintf('Solved %i Moves %i \n\n\n\n',tf, Lv) assert(tf) assert(~isequal(1,2)) if Lv<Lbest,Lbest=Lv;end end % cubesets %msiz=mtree('Rubik_Solver.m','-file').count feval( @assignin,'caller','score',floor(min( 20000,tsum/3 )) ); fprintf('\n\nScore %i\n',floor(min( 20000,tsum/3 ))); SetSolutionScore(floor(min( 20000,tsum/3 ))); Encode: 14 7 10 5 14 3 8 3 7 18 5 6 14 13 13 1 1 11 14 5 8 7 11 3 18 17 6 6 2 7 6 10 7 9 18 5 7 12 18 18 17 7 2 12 18 13 5 6 3 8 9 5 12 3 2 1 7 1 1 4 7 4 7 3 4 7 12 16 6 10 16 10 9 9 9 15 15 7 16 3 313521255350435521100341450340002521212443241034 ans = /users/mss.system.wly804/RubikP1_c_e_m_map.mat Elapsed time is 0.427680 seconds. Elapsed time is 0.464270 seconds. Phase 1 Sequence: 11 4 7 16 8 9 13 2 10 Phase 1 Output 200050543133131342540445131311312455442055222200 ans = /users/mss.system.wly804/RubikP2_mec_map.mat Elapsed time is 3.401385 seconds. Elapsed time is 3.432108 seconds. Phase 2 Sequence: 18 14 18 14 3 14 3 1 18 14 7 14 3 Full Sequence: 11 4 7 16 8 9 13 2 10 18 14 18 14 3 14 3 1 18 14 7 14 3 Time: 5535 msec Total Time 5535 Solution length 22 11 4 7 16 8 9 13 2 10 18 14 18 14 3 14 3 1 18 14 7 14 3 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 22 Encode: 5 18 10 9 16 15 10 4 3 10 14 7 8 16 6 8 11 7 12 17 12 16 1 18 5 3 5 15 3 9 4 9 4 3 10 6 2 7 7 17 6 8 17 3 6 14 7 13 15 17 5 10 1 11 7 11 13 6 18 2 12 4 13 18 10 17 9 10 3 14 10 6 15 2 16 4 6 4 5 3 134231404154423021100354223123415000551522053354 Phase 1 Sequence: 1 16 9 7 8 7 12 3 10 Phase 1 Output 055242041313131154020522313131332444542045050205 Phase 2 Sequence: 18 9 14 16 9 16 7 14 3 17 9 16 14 15 Full Sequence: 1 16 9 7 8 7 12 3 10 18 9 14 16 9 16 7 14 3 17 9 16 14 15 Time: 1097 msec Total Time 1097 Solution length 23 1 16 9 7 8 7 12 3 10 18 9 14 16 9 16 7 14 3 17 9 16 14 15 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 23 Encode: 18 15 12 2 11 1 6 2 1 17 2 5 3 1 18 14 17 15 15 4 2 13 6 2 6 7 10 14 4 16 2 12 12 11 9 13 4 10 8 7 14 16 17 1 6 12 2 10 12 15 2 12 18 15 12 17 3 16 6 8 4 11 9 8 1 5 11 17 17 4 15 4 12 11 17 1 9 4 8 2 045044352331334054252310111521044013530222451520 Phase 1 Sequence: 9 5 3 12 1 8 13 11 10 Phase 1 Output 202425003111333344404422131311135250504055052254 Phase 2 Sequence: 17 16 1 18 17 1 14 15 14 16 3 17 3 14 Full Sequence: 9 5 3 12 1 8 13 11 10 17 16 1 18 17 1 14 15 14 16 3 17 3 14 Time: 1073 msec Total Time 2171 Solution length 23 9 5 3 12 1 8 13 11 10 17 16 1 18 17 1 14 15 14 16 3 17 3 14 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 23 Encode: 16 15 17 15 10 13 5 18 10 1 1 18 4 14 15 12 12 12 10 16 18 14 17 1 12 12 12 3 16 14 4 9 14 12 13 2 14 4 3 4 1 11 10 6 4 15 12 6 6 16 2 16 17 13 8 6 3 16 5 3 1 7 12 12 1 3 7 11 5 15 8 14 1 8 13 9 2 2 3 12 232544150114311300202025150013431232055445443532 Phase 1 Sequence: 8 9 11 6 3 12 7 16 7 11 Phase 1 Output 002420541113331324550222131133135444002500552454 Phase 2 Sequence: 1 14 9 17 15 17 16 13 18 3 17 3 17 16 Full Sequence: 8 9 11 6 3 12 7 16 7 11 1 14 9 17 15 17 16 13 18 3 17 3 17 16 Time: 1089 msec Total Time 3260 Solution length 24 8 9 11 6 3 12 7 16 7 11 1 14 9 17 15 17 16 13 18 3 17 3 17 16 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 24 Score 1086

Test

Status

Code Input and Output

Pass

% Thanks to Alfonso Nieto-Castanon urlwrite('https://sites.google.com/a/alfnie.com/alfnie/software/SetSolutionScore.p?attredirects=0&d=1','SetSolutionScore.p'); rehash path;

Pass

%feval(@assignin,'caller','score',20000); % msec

Pass

vf=[ 17 2 3 20 5 22 7 8 11 13 16 10 15 9 12 14 41 18 19 44 21 46 23 24 25 26 27 28 29 30 31 32 33 34 6 36 4 38 39 1 40 42 43 37 45 35 47 48; 1 2 3 4 5 25 28 30 9 10 8 12 7 14 15 6 19 21 24 18 23 17 20 22 43 26 27 42 29 41 31 32 33 34 35 36 37 38 39 40 11 13 16 44 45 46 47 48 ; 1 2 38 4 36 6 7 33 9 10 11 12 13 14 15 16 17 18 3 20 5 22 23 8 27 29 32 26 31 25 28 30 48 34 35 45 37 43 39 40 41 42 19 44 21 46 47 24 ; 3 5 8 2 7 1 4 6 33 34 35 12 13 14 15 16 9 10 11 20 21 22 23 24 17 18 19 28 29 30 31 32 25 26 27 36 37 38 39 40 41 42 43 44 45 46 47 48 ; 14 12 9 4 5 6 7 8 46 10 11 47 13 48 15 16 17 18 19 20 21 22 23 24 25 26 1 28 2 30 31 3 35 37 40 34 39 33 36 38 41 42 43 44 45 32 29 27 ; 1 2 3 4 5 6 7 8 9 10 11 12 13 22 23 24 17 18 19 20 21 30 31 32 25 26 27 28 29 38 39 40 33 34 35 36 37 14 15 16 43 45 48 42 47 41 44 46 ; 40 2 3 37 5 35 7 8 14 12 9 15 10 16 13 11 1 18 19 4 21 6 23 24 25 26 27 28 29 30 31 32 33 34 46 36 44 38 39 41 17 42 43 20 45 22 47 48 ; 1 2 3 4 5 16 13 11 9 10 41 12 42 14 15 43 22 20 17 23 18 24 21 19 6 26 27 7 29 8 31 32 33 34 35 36 37 38 39 40 30 28 25 44 45 46 47 48 ; 1 2 19 4 21 6 7 24 9 10 11 12 13 14 15 16 17 18 43 20 45 22 23 48 30 28 25 31 26 32 29 27 8 34 35 5 37 3 39 40 41 42 38 44 36 46 47 33 ; 6 4 1 7 2 8 5 3 17 18 19 12 13 14 15 16 25 26 27 20 21 22 23 24 33 34 35 28 29 30 31 32 9 10 11 36 37 38 39 40 41 42 43 44 45 46 47 48 ; 27 29 32 4 5 6 7 8 3 10 11 2 13 1 15 16 17 18 19 20 21 22 23 24 25 26 48 28 47 30 31 46 38 36 33 39 34 40 37 35 41 42 43 44 45 9 12 14 ; 1 2 3 4 5 6 7 8 9 10 11 12 13 38 39 40 17 18 19 20 21 14 15 16 25 26 27 28 29 22 23 24 33 34 35 36 37 30 31 32 46 44 41 47 42 48 45 43 ; 41 2 3 44 5 46 7 8 16 15 14 13 12 11 10 9 40 18 19 37 21 35 23 24 25 26 27 28 29 30 31 32 33 34 22 36 20 38 39 17 1 42 43 4 45 6 47 48 ; 1 2 3 4 5 43 42 41 9 10 30 12 28 14 15 25 24 23 22 21 20 19 18 17 16 26 27 13 29 11 31 32 33 34 35 36 37 38 39 40 8 7 6 44 45 46 47 48 ; 1 2 43 4 45 6 7 48 9 10 11 12 13 14 15 16 17 18 38 20 36 22 23 33 32 31 30 29 28 27 26 25 24 34 35 21 37 19 39 40 41 42 3 44 5 46 47 8 ; 8 7 6 5 4 3 2 1 25 26 27 12 13 14 15 16 33 34 35 20 21 22 23 24 9 10 11 28 29 30 31 32 17 18 19 36 37 38 39 40 41 42 43 44 45 46 47 48 ; 48 47 46 4 5 6 7 8 32 10 11 29 13 27 15 16 17 18 19 20 21 22 23 24 25 26 14 28 12 30 31 9 40 39 38 37 36 35 34 33 41 42 43 44 45 3 2 1 ; 1 2 3 4 5 6 7 8 9 10 11 12 13 30 31 32 17 18 19 20 21 38 39 40 25 26 27 28 29 14 15 16 33 34 35 36 37 22 23 24 48 47 46 45 44 43 42 41 ]; cube_orig=[zeros(1,8) ones(1,8) ones(1,8)*2 ones(1,8)*3 ones(1,8)*4 ones(1,8)*5]; tsum=0; Lbest=30; for cube_sets=1:4 if cube_sets==2,tsum=0;end encode=randi(18,1,80); fprintf('Encode: ');fprintf('%i ',encode);fprintf('\n') r=cube_orig; for i= encode r=r(vf(i,:)); end encode=[]; % anti-shortcut encode_str=''; cube=r; fprintf('%i',r);fprintf('\n') % Time function ta=clock; [v]=Rubik_Solver(cube); t1=etime(clock,ta)*1000; % time in msec tsum=tsum+t1; Lv=length(v); assert(Lv<=30) fprintf('Time: %.0f msec Total Time %.0f\n',t1,tsum) fprintf('Solution length %i\n',length(v)) fprintf('%i ',v);fprintf('\n') r=cube; for i=v r=r(vf(i,:)); end fprintf('Solved Cube\n');fprintf('%i',r);fprintf('\n') tf=isequal(r,cube_orig); fprintf('Solved %i Moves %i \n\n\n\n',tf, Lv) assert(tf) assert(~isequal(1,2)) if Lv<Lbest,Lbest=Lv;end end % cubesets %msiz=mtree('Rubik_Solver.m','-file').count feval( @assignin,'caller','score',floor(min( 20000,tsum/3 )) ); fprintf('\n\nScore %i\n',floor(min( 20000,tsum/3 ))); SetSolutionScore(floor(min( 20000,tsum/3 )));

Encode: 14 7 10 5 14 3 8 3 7 18 5 6 14 13 13 1 1 11 14 5 8 7 11 3 18 17 6 6 2 7 6 10 7 9 18 5 7 12 18 18 17 7 2 12 18 13 5 6 3 8 9 5 12 3 2 1 7 1 1 4 7 4 7 3 4 7 12 16 6 10 16 10 9 9 9 15 15 7 16 3 313521255350435521100341450340002521212443241034 ans = /users/mss.system.wly804/RubikP1_c_e_m_map.mat Elapsed time is 0.427680 seconds. Elapsed time is 0.464270 seconds. Phase 1 Sequence: 11 4 7 16 8 9 13 2 10 Phase 1 Output 200050543133131342540445131311312455442055222200 ans = /users/mss.system.wly804/RubikP2_mec_map.mat Elapsed time is 3.401385 seconds. Elapsed time is 3.432108 seconds. Phase 2 Sequence: 18 14 18 14 3 14 3 1 18 14 7 14 3 Full Sequence: 11 4 7 16 8 9 13 2 10 18 14 18 14 3 14 3 1 18 14 7 14 3 Time: 5535 msec Total Time 5535 Solution length 22 11 4 7 16 8 9 13 2 10 18 14 18 14 3 14 3 1 18 14 7 14 3 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 22 Encode: 5 18 10 9 16 15 10 4 3 10 14 7 8 16 6 8 11 7 12 17 12 16 1 18 5 3 5 15 3 9 4 9 4 3 10 6 2 7 7 17 6 8 17 3 6 14 7 13 15 17 5 10 1 11 7 11 13 6 18 2 12 4 13 18 10 17 9 10 3 14 10 6 15 2 16 4 6 4 5 3 134231404154423021100354223123415000551522053354 Phase 1 Sequence: 1 16 9 7 8 7 12 3 10 Phase 1 Output 055242041313131154020522313131332444542045050205 Phase 2 Sequence: 18 9 14 16 9 16 7 14 3 17 9 16 14 15 Full Sequence: 1 16 9 7 8 7 12 3 10 18 9 14 16 9 16 7 14 3 17 9 16 14 15 Time: 1097 msec Total Time 1097 Solution length 23 1 16 9 7 8 7 12 3 10 18 9 14 16 9 16 7 14 3 17 9 16 14 15 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 23 Encode: 18 15 12 2 11 1 6 2 1 17 2 5 3 1 18 14 17 15 15 4 2 13 6 2 6 7 10 14 4 16 2 12 12 11 9 13 4 10 8 7 14 16 17 1 6 12 2 10 12 15 2 12 18 15 12 17 3 16 6 8 4 11 9 8 1 5 11 17 17 4 15 4 12 11 17 1 9 4 8 2 045044352331334054252310111521044013530222451520 Phase 1 Sequence: 9 5 3 12 1 8 13 11 10 Phase 1 Output 202425003111333344404422131311135250504055052254 Phase 2 Sequence: 17 16 1 18 17 1 14 15 14 16 3 17 3 14 Full Sequence: 9 5 3 12 1 8 13 11 10 17 16 1 18 17 1 14 15 14 16 3 17 3 14 Time: 1073 msec Total Time 2171 Solution length 23 9 5 3 12 1 8 13 11 10 17 16 1 18 17 1 14 15 14 16 3 17 3 14 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 23 Encode: 16 15 17 15 10 13 5 18 10 1 1 18 4 14 15 12 12 12 10 16 18 14 17 1 12 12 12 3 16 14 4 9 14 12 13 2 14 4 3 4 1 11 10 6 4 15 12 6 6 16 2 16 17 13 8 6 3 16 5 3 1 7 12 12 1 3 7 11 5 15 8 14 1 8 13 9 2 2 3 12 232544150114311300202025150013431232055445443532 Phase 1 Sequence: 8 9 11 6 3 12 7 16 7 11 Phase 1 Output 002420541113331324550222131133135444002500552454 Phase 2 Sequence: 1 14 9 17 15 17 16 13 18 3 17 3 17 16 Full Sequence: 8 9 11 6 3 12 7 16 7 11 1 14 9 17 15 17 16 13 18 3 17 3 17 16 Time: 1089 msec Total Time 3260 Solution length 24 8 9 11 6 3 12 7 16 7 11 1 14 9 17 15 17 16 13 18 3 17 3 17 16 Solved Cube 000000001111111122222222333333334444444455555555 Solved 1 Moves 24 Score 1086

Problem 1138. Rubik's Cube: 30 Moves or Less: Minimum Avg Time

Test Suite

Suggested Problems

More from this Author236

Problem 1138. Rubik's Cube: 30 Moves or Less: Minimum Avg Time

Test Suite

Suggested Problems

More from this Author236

Players