Предлагаю переделать язык C# (заменить стандартные ключевые слова на русские)

using System;
using System.Collections.Generic;
using System.Text;
 
namespace LZW
{
    public class Program
    {
        public static void Main(string[] args)
        {
            List<int> compressed = Compress("TOBEORNOTTOBEORTOBEORNOT");
            Console.WriteLine(string.Join(", ", compressed));
            string decompressed = Decompress(compressed);
            Console.WriteLine(decompressed);
        }
 
        public static List<int> Compress(string uncompressed)
        {
            // build the dictionary
            Dictionary<string, int> dictionary = new Dictionary<string, int>();
            for (int i = 0; i < 256; i++)
                dictionary.Add(((char)i).ToString(), i);
 
            string w = string.Empty;
            List<int> compressed = new List<int>();
 
            foreach (char c in uncompressed)
            {
                string wc = w + c;
                if (dictionary.ContainsKey(wc))
                {
                    w = wc;
                }
                else
                {
                    // write w to output
                    compressed.Add(dictionary[w]);
                    // wc is a new sequence; add it to the dictionary
                    dictionary.Add(wc, dictionary.Count);
                    w = c.ToString();
                }
            }
 
            // write remaining output if necessary
            if (!string.IsNullOrEmpty(w))
                compressed.Add(dictionary[w]);
 
            return compressed;
        }
 
        public static string Decompress(List<int> compressed)
        {
            // build the dictionary
            Dictionary<int, string> dictionary = new Dictionary<int, string>();
            for (int i = 0; i < 256; i++)
                dictionary.Add(i, ((char)i).ToString());
 
            string w = dictionary[compressed[0]];
            compressed.RemoveAt(0);
            StringBuilder decompressed = new StringBuilder(w);
 
            foreach (int k in compressed)
            {
                string entry = null;
                if (dictionary.ContainsKey(k))
                    entry = dictionary[k];
                else if (k == dictionary.Count)
                    entry = w + w[0];
 
                decompressed.Append(entry);
 
                // new sequence; add it to the dictionary
                dictionary.Add(dictionary.Count, w + entry[0]);
 
                w = entry;
            }
 
            return decompressed.ToString();
        }
    }
}

использовать Система;
использовать Система.Наборы.Общий;
использовать Система.Текст;
 
имя LZW
{
    общий класс Программа
    {
        общий статический Главный(строка[] аргументы)
        {
            Перечень<целый> сжатый = Сжать("БЫТЬИЛИНЕБЫТЬ");
            Консоль.ЗаписатьСтроку(строка.Обьеденить(", ", сжатый));
            строка росжатый = Росжать(сжатый);
            Консоль.ЗаписатьСтроку(Росжатый);
        }
 
        общий статический Список<целый> Сжать(строка росжатый)
        {
            // построение словаря
            Словарь<строка, целый> словарь = новый Словарь<строка, целый>();
            Для (целый индекс = 0; индекс < 256; индекс инкремент)
                словарь.Добавить(((символ)индекс).КСтроке(), индекс);
 
            строка в = строка.Пустой;
            Список<целое> сжатый = новый Список<целый>();
 
            Каждый (символ c в росжатый)
            {
                строка вс = в + с;
                если (словарь.Содержит(вс))
                {
                    в = вс;
                }
                если не
                {
                    // запись в в вывод
                    сжатый.Добавить(словарь[в]);
                    // вс это новая последовательность; добавление её в словарь
                    словарь.Добавить(вс, словарь.Счетчик);
                    в = с.КСтроке();
                }
            }
 
            // восстановление вывода если это необходимо
            if (!строка.ЕслиНеОпределеноЛибоПусто(в))
                сжатый.Добавить(словарь[в]);
 
            возврат сжатый;
        }
 
        общий статический строка Расжать(Список<целый> сжатый)
        {
            // создание нового словаря
            Словарь<целое, строка> словарь = новый Словарь<целое, строка>();
            Для (целый индекс = 0; индекс < 256; индекс инкремент)
                словарь.Добавить(индекс, ((символ)индекс).КСтроке());
 
            строка в = словарь[сжатый[0]];
            сжатый.УдалитьНа(0);
            КонструкторСтрок расжатый = новый КонструкторСтрок(в);
 
            Каждый (целое к в росжатый)
            {
                строка запись = не определенность;
                если (словарь.Содержит(к))
                    запись = словарь[к];
                если не (к == словарь.Счетчик)
                    запись = в + в[0];
 
                расжатый.Добавить(запись);
 
                // новая последовательность; добавление её в словарь
                словарь.Добавить(словарь.Счетчик, в + запись[0]);
 
                в = запись;
            }
 
            возврат расжатый.КСтроке();
        }
    }
}