Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    Dump( @boards );
    exit 0;
}

 > perl MoveBlocks.pl2
Considering 1 of 1 boards after 0 moves...
...
Considering 151 of 324 boards after 109 moves...
Considering 149 of 314 boards after 110 moves...
Considering 146 of 321 boards after 111 moves...

 H< 2^ 2> H> C^ 3< 4< D< 2v H> 1^ 4^ 3> Cv 1< H<
 Bv 2v Bv X> A> 1^ 1^ C^ C^ 4< 3< D< 2< 2^ Bv H>
...
 Hv Xv 4> 1> C^ 4> 1> A^ D^ B^ 3< 3< 2< 2< Hv Xv
 1v 1> A> B^ B^ X< 1v 4v 1v 4v A> B> C> D^ D^ X<
 4< 1^ H^ 2> 3> 2> 3> Xv 4< 4< 1< 1< H^ 3^ 3> X>

 ###### ###### ###### ###### ###### ###### ###### ######
 #AXXB# #AXXB# #AXXB# #AXXB# #AXXB# #AXXB# #AXXB# #AXXB#
...
 #>XX2#
 ######
 X>