Ок, по задаче 1. Мой вариант.
Код:
( Шифр Цезаря, задачка 1 )
CREATE DecFrom C" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" ",
CREATE DecTo C" +/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" ",
: decodeFrom ( -- addr u ) DecFrom COUNT ;
: AddrFrom2To ( addrFrom -- addrTo ) \ ковертирует адрес символа из строки DecFrom в адрес аналогичного символа из строки DecTo
DecFrom - \ получил смещение
DecTo + \ можно еще оптимизировать, тк участвует две константы: [ DecTo DecFrom - ] +
;
: decodeChar ( addr_char -- ) \ декодировать символ, расположенный по адресу addr_char
>R decodeFrom R@ 1 SEARCH
IF \ Нашли, символ заменяем на другой
DROP AddrFrom2To
C@ ( decode_char )
R> C!
ELSE \ Не Нашли, с символом ничего не делаем
2DROP RDROP
THEN
;
: decodeStr ( addr u -- ) \ Декодировать строку согласно шифру Цезаря
OVER + SWAP ( addr_end addr_beg )
DO
I decodeChar
LOOP
;
\ -------------------- test section ---------------------------
: t1 [CHAR] g SP@ decodeChar EMIT ;
: t2 S" ABCDEFроодолд" 2DUP decodeStr TYPE ;
\EOF
Фактически задача сводится к более общей -- к задаче перекодирвоания строки путем замены символов из таблицы соответствия. В перле это решается одной командой, а-ля:
Код:
$str =~ tr/ABCD/CDAB/ ;
Когда-то я об этом писал:
http://forth-j.narod.ru/day10.htm
Аналогич можно взять за основу слово CKOI>WIN из ~ac\lib\string\CONV.F
Выше представле вариант реализации с сипользованием слова SEARCH, которое содержит в себе циклы поиска и замены. По сравнению, с раннее предложенным решением, это обладает:
- большой наглядносью -- все строки замещения перед глазами;
- универсальностью -- достаточно добавить новые таблицы подстновок и мы получим перекодирование из одной кодировки в другую;
- не уверен, но мне кажется большим быстродействием, т.к внутренний цикл реализован прямо на асме в определении слова SEARCH
Вход
Регистрация
Благодарности
Forth-FAQ
