RLE JScript.

[dixonich]

Нужно написать на JScript RLE, собственно. Алгоритм более менее знаю.
Начал писать encode, но, не знаю, как реализовать алгоритм.

var fso = new ActiveXObject("Scripting.FileSystemObject"); 
function file(filename) {
var ts = fso.OpenTextFile(filename); 
read = ts.ReadAll().split(" ");
file.Close();
return ts;
}
function ESC(filename) {
function encode() {
       esc = "#"
	   k=0;
	   mas=s[1];
	   if (k>3)	    
	      a = esc + String.fromCharCode(k-3) + b ;
	   else

Кодирую при помощи ESCAPE символа.

 I. Кодирование с помощью ESCAPE-символа. 

Пусть у нас есть некоторый символ. Мы назовем его ESCAPE. В качестве данного символа можно взять такой символ, который не встречается в наших данных, или, если таких нет - то, вообще говоря, любой другой. Возьмём к примеру за ESCAPE-символ знак "#". 

Определение: подстановка - замена одной серии символов на другую. 
Обозначение (n) - символ с кодом n. 

Введём следующие правила подстановки: 

1. k подряд идущих одинаковых базовых символов при k > 3 будем заменять на тройку: ESCAPE, символ с кодом k - 3, базовый. 
Пример: AA….A -> #(k-3)A. 
2. Кодирование ESCAPE-симола происходит аналогично правилу 1, пример: ##...# -> #(k)#. 
3. Менее четырех подряд идущих символов (за исключением #) оставляем как они есть, т.к. особого смысла кодировать их нет. 
4. Для короткой (длина менее 4) серии ESCAPE-символов производим аналогичную первому пункту замену: 
# -> #(1)# 
## -> #(2)# 
### -> #(3)#. 


Пример: AAAAABCDCDBBBB -> #(2)ABCDCD#(1)B. 

Замечание. 

Очевидно, что если счетчик будет достаточно большой, то он в байт не поместится. Следовательно, большие последовательности подряд идущих букв необходимо делить на части, например, закодируем 500 букв A: 
A…A -> #(255)A#(239)A 

Процесс декодирования достаточно очевиден и предполагает использование тех же правил, только в обратном порядке.

[dixonich]

ап)
. .

[Zer0]

в принципе могу попробовать, отпишись в асю 392459949 если все еще необходимо)

[dixonich]

да нет, мне просто бы алгоритм
я не совсем понял, как это сделать(

[Zer0]

ну как самый тривиальный вариант - циклом (только не for) проходишься по строке. Имеешь переменную счетчик, и если символ в текущей позиции = символу в преддущей, то увеличиваешь на 1, иначе смотришь, если предыдущий символ = #, то удаляешь эту частьстроки и заменяешь ее на #(k)#, иначе только если больше 3, после этого счетсик присваиваешь к 1

[dixonich]

Сообщение от Zer0

ну как самый тривиальный вариант - циклом (только не for) проходишься по строке. Имеешь переменную счетчик, и если символ в текущей позиции = символу в преддущей, то увеличиваешь на 1, иначе смотришь, если предыдущий символ = #, то удаляешь эту частьстроки и заменяешь ее на #(k)#, иначе только если больше 3, после этого счетсик присваиваешь к 1

а почему не фором?

[Zer0]

кстати да) но в таком случае просто нужно сразу в новую строку записывать закодированный вариант, а не заменять исходную как в первом случае

[dixonich]

спасибо, завтра попробую