Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Чт мар 28, 2024 21:36

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: еще один маленький пример - перемешивание символов слова
СообщениеДобавлено: Вт окт 09, 2007 03:26 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Чт май 04, 2006 00:53
Сообщения: 5062
Откуда: был Крым, теперь Новосибирск
Благодарил (а): 23 раз.
Поблагодарили: 63 раз.
вобщем когда-то в новостях проскакивала статься с сообщением, что дескать, человек воспринимает текст, даже если перемешать в словах все буквы, кроме первой и последней(к сожалению сайт с данной новостью я найти не смог, может кто ссылку добавит). Дальше маленький пример, как это можно сделать на форте(SPF4):
<pre>
S" .\lib\ext\rnd.f" INCLUDED \ подключаем генератор псевдослучайных чисел

\ поменять содержимое байта, на ходящегося по addr на char,
\ старое значение вернуть
: ExBytes ( char addr --> oldchar ) DUP C@ -ROT C! ;

\ поменять байтовые значения двух ячеек памяти местами
: ChBytes ( addra addrb --> ) OVER C@ SWAP ExBytes SWAP C! ;

\ перемешать содержимое строки случайным образом
: mix ( asc # --> asc # )
2DUP OVER + SWAP DO 2DUP CHOOSE + I ChBytes LOOP ;

\ перемешать все символы кроме крайних
: mmix ( asc # --> asc # )
3 OVER < IF ELSE EXIT THEN \ не менее трех символов в строке
2DUP 1 -2 D+ mix 2DROP ;

\ отобразить пословное искажение содержимого строки, находящейся за mixstr
: mixstr ( / asc --> )
BEGIN NextWord DUP WHILE
mmix TYPE SPACE
REPEAT 2DROP CR ;

mixstr На самом деле не так просто разобрать слова с перемешанными символами.
mixstr Возможно не все буквы стоит перемешивать , а лишь определенный процент
mixstr букв в слове
</pre>

_________________
Мне бы только мой крошечный вклад внести,
За короткую жизнь сплести
Хотя бы ниточку шёлка.
fleur


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 09, 2007 07:16 
Не в сети
Moderator
Moderator

Зарегистрирован: Ср май 10, 2006 15:37
Сообщения: 1132
Откуда: Chelyabinsk ( Ural)
Благодарил (а): 0 раз.
Поблагодарили: 9 раз.
Иногда на некоторых каналах ( в ночное время)
играют в дауновскую игру угадай слово с перемешиванием букв.

Так вот заметил, что моск после некоторого разглядывания
картинки моск определяет последовательность из всех букв:)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 09, 2007 21:15 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Чт май 04, 2006 00:53
Сообщения: 5062
Откуда: был Крым, теперь Новосибирск
Благодарил (а): 23 раз.
Поблагодарили: 63 раз.
нашел по этому поводу маленькое замечание на каком-то форуме:
"Видел подобный текст и в английском варианте. На самом деле здесь лукавят. Недостаточно просто сохранить первую и последнюю букву на своих местах. Если приглядеться к тексту, то видно, порядок слогов более-менее сохранён (вернее, слогообразующих гласных). Если действительно перемешать буквы внутри слова произвольно, то длинные слова станут малочитаемыми. Вот например если так последнюю фразу переделать: Олтынасье бвкуы муогт стадеволь в поонлм бодярпеске. Кстати, занятные слова получаются."

так что решение должно быть немного сложнее 8)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 09, 2007 23:45 
Не в сети

Зарегистрирован: Вт май 09, 2006 12:31
Сообщения: 3438
Благодарил (а): 5 раз.
Поблагодарили: 16 раз.
да, кажется так
отчего у меня эта программка выдаёт абракадабру?
вот такую :D

-р ёюьрь фхых эх Єръ яёЁЄюю ЁррючЄсЁ№ ётыюр ё яэх°рьЁь_хэхш ёьтрьыюшш.
-ьчэюцюю эх тёх сєтъ_ ёюшЄЄ яьтЁхшрхЄ°х№ , р ы°ш№ юых_Ёэфэххящ яЁэЎюхЄ
сєът т ёыютх

_________________
понимаю некоторую бестолковость некоторых вопросов


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 09, 2007 23:57 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Чт май 04, 2006 00:53
Сообщения: 5062
Откуда: был Крым, теперь Новосибирск
Благодарил (а): 23 раз.
Поблагодарили: 63 раз.
потому что в другой кодировке выводится код.
создай файл в FARе, выбери дос кодировку, вставь текст.
а потом смотри результат.

_________________
Мне бы только мой крошечный вклад внести,
За короткую жизнь сплести
Хотя бы ниточку шёлка.
fleur


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср окт 10, 2007 00:40 
Не в сети

Зарегистрирован: Вт май 09, 2006 12:31
Сообщения: 3438
Благодарил (а): 5 раз.
Поблагодарили: 16 раз.
я бы не сказал, что так легко всё читается, кроме трёхбуквенных слов

mixstr некоторый текст для преобразования вот он
нетыркоой тескт для прзабовонираея вот он

_________________
понимаю некоторую бестолковость некоторых вопросов


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB