Оптимизированный рабочий метод.

Bitmag 13.02.2004 02:50

@unuri[buffer]
$repl[^table::create[nameless]{
%60	`
%3D	=
%5D	]
%5B	^[
%3B	^;
%27	'
%5C	\
%2F	/
%2C     ,
%5C	\
%7E	~
%21	!
%23	#
%24	^$
%25	%
%5E	^^
%26	&
%28	^(
%29	^)
%2B	+
%7D	^}
%7B	^{
%3A	:
%22	"
%7C	|
%3F	?
%3E	>
%3C	<
%7C	|
%B8	ё
%FA	ъ
%F5	х
%E7	з
%F9	щ
%F8	ш
%E3	г
%ED	н
%E5	е
%EA	к
%F3	у
%F6	ц
%E9	й
%F4	ф
%FB	ы
%E2	в
%E0	а
%EF	п
%F0	р
%EE	о
%EB	л
%E4	д
%E6	ж
%FD	э
%5C	\
%FE	ю
E1	б
%FC	ь
%F2	т
%E8	и
%EC	м
%F1	с
%F7	ч
%FF	я
%5C	\
%A8	Ё
%22	"
%B9	№
%3B	^;
%3A	:
%3F	?
%C9	Й
%D6	Ц
%D3	У
%CA	К
%C5	Е
%CD	Н
%C3	Г
%D8	Ш
%D9	Щ
%C7	З
%D5	Х
%DA	Ъ
%2F	/
%DD	Э
%C6	Ж
%C4	Д
%CB	Л
%CE	О
%D0	Р
%CF	П
%C0	А
%C2	В
%DB	Ы
%D4	Ф
%DF	Я
%D7	Ч
%D1	С
%CC	М
%C8	И
%D2	Т
%DC	Ь
%C1	Б
%DE	Ю
%2C	,
}]

$buffer[$buffer]
$buffer[^buffer.replace[$repl]]
$result[$buffer]