diff --git a/tools/genRandomParam.pl b/tools/genRandomParam.pl index 1610078..5c3e60a 100644 --- a/tools/genRandomParam.pl +++ b/tools/genRandomParam.pl @@ -23,7 +23,24 @@ for (my $i = 0; $i < 32; $i++) $r = int(rand(6)); } $odelay = $r; - print $r. ";"; + print $odelay; + + led(); + led(); + + $r = int(rand(10)); + led() if ($r % 2); + + print "\" "; + +} + +exit 0; + +sub led +{ + my $r = 0; + print ";"; $r = 0; while ($r < 1 || $r > 3 || $olayer == $r) { @@ -39,6 +56,5 @@ for (my $i = 0; $i < 32; $i++) } $oled = $r; print $r; - print "\" "; } diff --git a/tools/sample.txt b/tools/sample.txt index c845660..dbd9bff 100644 --- a/tools/sample.txt +++ b/tools/sample.txt @@ -1,2 +1,3 @@ perl ./frame2cube.pl "2;3,2,5,8" "2;3,3,5,7" "2;3,4,5,6;" "2;3,1,5,9" "5;2,2,5,8" "5;2,3,5,7" "5;2,4,5,6" "5;2,1,5,9" "8;1,2,5,8" "8;1,3,5,7" "8;1,4,5,6" "8;1,1,5,9" "8;1,4,5,6" "8;1,3,5,7" "8;1,2,5,8" "5;2,1,5,9" "5;2,4,5,6" "5;2,3,5,7" "5;2,2,5,8" "2;3,1,5,9" "2;3,4,5,6;" "2;3,3,5,7" "2;3,2,5,8" "8;2,5" "5;1,5;2,2,4,6,8;3,5" "5;1,2,4,6,8;2,1,2,3,4,6,7,8,9;3,2,4,6,8" "5;1,1,2,3,4,6,7,8,9;2,2,4,6,8;3,1,2,3,4,6,7,8,9" "5;1,2,4,6,8;2,2,4,6,8;3,2,4,6,8" "5;1,5;2,2,4,6,8;3,5" "5;2,5" "5;2,5;3,5" "10;3,5" perl ./frame2cube.pl "2;1,9;3,2" "1;1,7" "2;3,4;1,8" "1;3,8,1,3" "2;3,1;3,5" "1;2,1" "2;1,7;2,3" "1;2,6" "2;2,6;1,9" "1;3,3" "2;3,1,7;1,7" "1;3,3,4" "2;1,1;3,3" "1;2,9" "2;2,2;2,7" "1;1,1" "2;1,9,4;2,4" "1;1,5" "2;2,1;1,7" "1;1,7" "2;1,1;3,8" "1;3,3" "2;3,4;2,6" "1;1,9" "2;1,2;3,3" "1;1,9;2,4" "2;1,6;3,2" "1;3,9" "2;2,8;3,3" "1;1,3,2" "1;1,3;2,6" "2;1,8;3,5" "1;2,3,8" +perl ./frame2cube.pl "5;2,1;3,2" "3;1,4;2,8;1,6" "1;2,1;3,4" "3;1,3;2,2" "2;1,3;2,8" "1;1,1;3,5;2,8" "4;3,4;1,5" "3;3,3;1,2;3,4" "2;2,7;3,1;1,8" "1;2,9;1,5;2,2" "5;3,8;1,2;2,1" "2;1,7;2,4;3,6" "1;1,2;2,8;3,9" "3;2,5;3,1;2,3" "2;1,1;3,4;2,6" "1;1,8;3,2;2,8" "5;1,7;3,9" "1;1,4;3,9;2,3" "3;1,7;3,5" "2;1,9;2,3" "3;1,7;3,2;1,8" "1;3,6;2,5" "4;3,4;2,7" "2;3,8;1,5;2,3" "1;3,2;1,9" "5;3,5;1,9;2,5" "1;1,6;2,8;3,9" "5;1,4;3,5" "2;2,1;1,3" "3;3,9;1,2" "5;3,5;1,9;3,5" "3;1,7;2,1"