CJam, 139 bayt
Pekala, bu işlemin hissettirdiği bir şeye gelmesi saatler sürdü. CJam kodunu agresif bir şekilde optimize etmek için geçen süre , kodun boyutuna göre O (n) ' den daha büyük bir şey gibi hissettiriyor ...
Şunları yapabilirsiniz çevrimiçi denemek , ancak herhangi bir giriş için hangi iyi yolu en az 6 operasyonları olduğu kadar, muhtemelen gerektiğini çevrimdışı denemek daha hızlı tercüman.
ezilmiş:
q_'$-_'^-:T;'^#\'^-'$#W{)2$5Y$5b+{:D[L"_T<W%_N#)_@>N+N#X-Ue>+-"_"W%-U"--2'<t2'>t'++'(')]=~0e>T,e<D3/1$T<N\+W%N#X?:X;}/2$-}g5b{" ^v<>"=}%]W=
Genişletilmiş ve yorum yapılan:
q "Read the input";
_'$- "Remove the end marker";
_'^-:T; "Remove the start marker and save the text";
'^# "With only the end marker removed, locate the start marker";
\'^-'$# "With only the start marker removed, locate the end marker";
W "Initialize the path number to -1";
{ "Do...";
) "Increment the path number";
2$ "Initialize the cursor position to that of the start marker";
5Y$5b+ "Convert the path number to base 5, then add a leading 5
(the leading 5 will act to initialize the column memory)";
{:D "For each digit in the path digit string:";
[ "Begin cases:";
L "0: Do nothing";
"_T<W%_N#)_@>N+N#X-Ue>+-"
"REFS: [ 1 ][ 2 ][ 3 ]45
1: [1] Calculate the distance to the end of the previous
line (0 if no such line)
[2] Calculate the length of the previous line (0 if
no such line)
[3] Calculate the distance to move backwards in the
previous line as the maximum of the length of the
previous line minus the column memory and 0
[4] Calculate the total distance to move as the sum
of [1] and [3]
[5] Subtract [4] from the cursor position";
_"W%-U"- "2: Start with a base of the logic of case 1, but with a
few operations adjusted.";
-2'<t2'>t " [1] Calculate the distance to the *start* of the
*next* line (0 if no such line)
[2] Calculate the length of the *next* line (0 if no
such line)
[3] Calculate the distance to move *forwards* in the
*next* line as the *minimum* of the length of the
*next line* and *the column memory*
[4] Calculate the total distance to move as the sum
of [1] and [3]";
'++ " [5] *Add* [4] *to* the cursor position";
'( "3: Decrement the cursor position";
') "4: Increment the cursor position";
]=~ "Execute the case corresponding to the path digit mod 5";
0e>T,e< "Clamp the cursor position to [0, text length]";
D3/ "Check if the path digit is not 0, 1, or 2...";
1$T<N\+W%N# "Calculate the current column";
X?:X; "If the above check succeeded, update the column memory";
}/ "End for each";
2$- "Subtract the end marker position from the cursor position";
}g "... While the above subtraction is nonzero";
5b "Convert the path number to base 5";
{" ^v<>"=}% "Map each digit in the path string to its operation symbol";
]W= "Clean up";
Genel olarak, bu oldukça basit bir çözümdür. Bir yol çalışana kadar 0 ile başlayarak her yinelemede artırılan bir yol numarasının base-5 temsilini rakamlarını "yürütür". Rakamlar 1- 4yukarı, aşağı, sol ve sağdaki işlemlerle eşleşir ve 0hiçbir şey yapmaz. Bir yol kullanan ilk yineleme 0dejenere durumu yakalar. A içeren diğer tüm yollar 0hiçbir zaman seçilmez, çünkü bunlar zaten eklenmiş op olmayan ekleri olan önceden test edilmiş yolların sürümleridir.
Durum mümkün olduğunca minimal bir şekilde modellenmiştir: başlangıç ve bitiş işaretleyicileri kaldırılmış metin, metindeki imleç konumu ve "sütun belleği". Yeni satırlar çoğunlukla diğer karakterler gibi ele alınır, bu nedenle bir satır kavramı yoktur ve imleç konumu sadece bir indekstir. Bu, sol ve sağ ölüleri hareket ettirmeyi basitleştirir, bu sadece azalma ve artış olarak uygulanır (metnin boyutuna kenetlenerek). Yukarı ve aşağı hareket etmek biraz daha zordur, ancak yine de yönetilebilir.
Kodun yeniden kullanımı oldukça hayati bir optimizasyon taktiğiydi. Buna örnekler:
- Yukarı doğru hareket etmek için kodun, çalışma zamanında aşağı doğru hareket etmek için kendi kodunu yazmaktan daha az kod üretecek şekilde yazılması. Bu, yukarı hareket etmek ve birkaç karakteri kaldırmak / değiştirmek için kod kopyalayarak yapılır.
- "Sütun hafızasının" güncellenmesi, işlemin mantığına kodlanmak yerine yol basamağının 3'e bölünmesine bağlı olarak şartlı olarak yapılır. Bu aynı zamanda
5yol dizesinin başlangıcına bir kukla işlem ekleyerek sütun belleğinin başlatılmasına izin verir , bu da 0dairesel dizi indeksleme ve sadece 5 tanımlı işlem olması nedeniyle op-olmayan mantığı kullanır .
Genel olarak, bunun nasıl ortaya çıktığı için çok mutluyum. Bu kesinlikle bugüne kadar bir kod golf cevap koymak en çok iş (bir tweet uygun bir şey için !?). Ancak çalışma süresi oldukça berbat. CJam tam olarak başlamak için en hızlı dil değildir ve bu algoritma O (m * 5 n ) gibi bir karmaşıklığa sahiptir , burada m girişin boyutu ve n de çıktının boyutudur. İyi bir şey hızı sayılmaz!