GolfScript, 39/83 byte
# Optimized for size:
{.4rand.p.2/+>`{?1420344440`=}+$..$>}do
# Optimized for speed:
6,(7++:t;~{.(1=.@7=9=+4\-rand+..2/+@.@>:s^[3s=0s=2s=4s=1s=]+s|.)9<\t>|}do.$>30764`*
Kecepatan vs ukuran
Versi ukuran-dioptimalkan secara acak memilih rotasi searah jarum jam sampai permutasi yang diinginkan tercapai. Ini cukup, karena rotasi berlawanan arah jarum jam setara dengan tiga rotasi searah jarum jam berturut-turut dari bujur sangkar yang sama.
Versi yang dioptimalkan kecepatan melakukan hal yang sama, kecuali untuk yang berikut:
Jika angka 1 di sudut kiri atas, itu tidak memutar persegi kiri atas lagi.
Jika angka 9 ada di sudut kanan bawah, itu tidak memutar kotak kanan bawah lagi.
Langkah-langkah untuk bertukar posisi 7 dan 8 adalah hardcode, sehingga ada dua posisi yang memungkinkan loop untuk istirahat.
Selain mengubah algoritme, versi yang dioptimalkan kecepatan juga mencapai rotasi secara langsung, sedangkan versi yang dioptimalkan ukuran menggunakan sortir bawaan GolfScript dengan memetakan. Itu juga hardcodes keadaan akhir (untuk perbandingan) alih-alih menyortir negara di setiap iterasi.
Versi yang dioptimalkan kecepatan membutuhkan lebih sedikit iterasi dan setiap iterasi jauh lebih cepat dengan sendirinya.
Tolak ukur
Saya telah menggunakan kode berikut untuk mengacak posisi angka-angka dan melakukan uji coba, menghapus tanda komentar pada baris yang sesuai dengan versi yang akan diuji:
[{[
0:c;10,1>{;2 32?rand}$
#{c):c;.4rand.2/+>`{?1420344440`=}+$..$>}do
#6,(7++:t;{.(1=.@7=9=+4\-rand+..2/+@.@>:s^[3s=0s=2s=4s=1s=]+s|.)9<\t>|}do.$>30764`*
],c+}\~*]
$.0='Min: '\+puts .-1='Max: '\+puts ..{+}*\,/'Avg: '\+puts .,2/='Med: '\+
Output menunjukkan jumlah langkah minimum dan maksimum yang diperlukan untuk memesan angka, rata-rata, dan median semua proses, serta waktu yang berlalu dalam hitungan detik:
$ TIME='\n%e s' time golfscript rotation-test-size.gs <<< 100
Min: 4652
Max: 2187030
Avg: 346668
Med: 216888
21500.10 s
$
$ TIME='\n%e s' time golfscript rotation-test-speed.gs <<< 1000
Min: 26
Max: 23963
Avg: 3036
Med: 2150
202.62 s
Di komputer saya (Intel Core i7-3770), waktu eksekusi rata-rata versi yang dioptimalkan adalah 3,58 menit. Waktu eksekusi rata-rata dari versi yang dioptimalkan kecepatan adalah 0,20 detik. Dengan demikian, versi yang dioptimalkan kecepatan sekitar 1075 kali lebih cepat.
Versi yang dioptimalkan kecepatan menghasilkan rotasi 114 kali lebih sedikit. Melakukan setiap rotasi adalah 9,4 kali lebih lambat, yang terutama disebabkan oleh bagaimana negara diperbarui.
I / O
Output terdiri dari angka 3-bit. MSB diatur untuk rotasi berlawanan arah jarum jam, bit tengah ditetapkan untuk kotak yang lebih rendah dan LSB diatur untuk kotak kanan. Jadi, 0 (4) adalah kuadrat kiri atas, 1 (5) yang kanan atas, 2 (6) kiri bawah dan 3 (7) yang kanan bawah.
Versi yang dioptimalkan kecepatan mencetak semua rotasi dalam satu baris. Versi ukuran-dioptimalkan mencetak satu rotasi per baris, diikuti oleh posisi akhir angka.
Untuk versi yang dioptimalkan kecepatan, input harus menghasilkan array yang berisi angka dari 1 hingga 9 ketika dievaluasi. Untuk versi yang dioptimalkan ukuran, input harus berupa string tanpa baris akhir akhir; itu tidak dievaluasi.
Contoh berjalan:
$ echo -n '253169748' | golfscript rotation-size.gs
3
0
123456789
$ golfscript rotation-speed.gs <<< '[5 4 7 1 2 9 3 8 6]'
2210300121312212222212211121122211122221211111122211211222112230764
Kode yang dioptimalkan ukuran
{ #
. # Duplicate the state.
4rand # Push a randomly chosen integers between 0 and 3.
.p # Print that integer.
.2/+ # Add 1 to it if it is grater than one. Possible results: 0, 1, 3, 4
>` # Slice the state at the above index.
{ # Push a code block doing the following:
? # Get the index of the element of the iteration in the sliced state.
1420344440` # Push the string "14020344440".
= # Retrieve the element at the position of the computed index.
}+ # Concatenate the code block with the sliced state.
$ # Sort the state according to the above code block. See below.
..$> # Push two copies of the state, sort the second and compare the arrays.
}do # If the state is not sorted, repeat the loop.
Memperbarui status dicapai dengan cara berikut:
Rotasi 2 menghasilkan bilangan bulat 3 setelah menambahkan 1. Jika negara adalah "123456789", mengiris negara menghasilkan "456789".
Tepat sebelum menjalankan "$", elemen paling atas dari tumpukan adalah:
[ 1 2 3 4 5 6 7 8 9 ] { [ 4 5 6 7 8 9 ] ? "1420344440" = }
"$" Mengeksekusi blok sekali untuk setiap elemen array yang akan diurutkan, setelah mendorong elemen itu sendiri.
Indeks 1 dalam “[4 5 6 7 8 9]” adalah -1 (tidak ada), jadi elemen terakhir dari "1420344440" didorong. Ini menghasilkan 48, kode ASCII yang sesuai dengan karakter 0. Untuk 2 dan 3, 48 juga didorong.
Bilangan bulat yang didorong untuk 4, 5, 6, 7, 8 dan 9 adalah 49, 52, 50, 48, 51, dan 52.
Setelah disortir, elemen pertama dari negara akan menjadi salah satu elemen yang menghasilkan 48; yang terakhir akan menjadi salah satu yang menghasilkan 52. Jenis bawaan pada umumnya tidak stabil, tetapi saya telah memverifikasi secara empiris bahwa itu stabil dalam kasus khusus ini.
Hasilnya adalah "[1 2 3 7 4 6 8 5 9]", yang sesuai dengan rotasi searah jarum jam dari alun-alun kiri bawah.
Kode yang dioptimalkan kecepatan
6,(7++:t; # Save [ 1 2 3 4 5 7 ] in variable “t” and discard it.
~ # Interpret the input string.
{ #
:s # Duplicate the current state.
(1= # Unshift the first element and push 1 if it is equal to 1 and 0 otherwise.
.@ # Duplicate the boolean and rotate the unshifted array on top of it.
7=9= # Push 1 if the eighth element of “s” is equal to 9 and 0 otherwise.
+4\- # Add the booleans and subtract their sum from 4.
rand # Push a randomly chosen integers between 0 and the result from above.
+. # Add this integer to the first boolean and duplicate it for the output.
.2/+ # Add 1 to the result if it is grater than one. Possible results: 0, 1, 3, 4
@. # Rotate the state on top of the stack and duplicate it.
@>:s # Slice the state at the integer from above and save the result in “s”.
^ # Compute the symmetric difference of state and sliced state.
[ # Apply a clockwise rotation to the sliced array:
3s= # The fourth element becomes the first.
0s= # The first element becomes the second.
2s= # The third element remains the same.
4s= # The fifth element becomes the fourth.
1s= # The second element becomes the fifth.
] # Collect the results into an array.
+ # Concatenate with array of elements preceding the slice.
s| # Perform set union to add the remaining elements of “s”.
. # Duplicate the updated state.
)9< # Pop the last element; push 0 if it is equal to 9 and 1 otherwise.
\t # Swap the popped state on top and push [ 1 2 3 4 5 7 ].
> # Push 0 if the state begins with [ 1 2 3 4 5 6 ] and 1 otherwise.
| # Take the logical OR of the booleans.
}do # If the resulting boolean is 1, repeat the loop.
.$ # Duplicate the state and sort it.
>30764`* # If the state was not sorted, 7 and 8 are swapped, so push "30764".
Perhatikan bahwa rotasi 3, 0, 7, 6 dan 4 menukar elemen di posisi 7 dan 8, tanpa mengubah posisi tujuh elemen yang tersisa.
...and return as output a sequence of moves representing the moves you must take to return the board back to its originalApakah ini berarti "kembali ke1 2 3\n4 5 6\n7 8 9"? Saya tidak yakin bagaimana cara membacanya.