Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Перестановки букв. 


McSimm   (2002-02-08 11:59) [0]

Для тех кто раньше эту задачку не встречал:
Переставьте буквы в слове "Спаниель" чтобы получилось другое слово. Набор букв - тот же.



Merlin   (2002-02-08 12:02) [1]

должны использоваться все буквы?



McSimm   (2002-02-08 12:04) [2]

Да
Просто перестановка. Не отнять не прибавить.



Букварь   (2002-02-08 12:08) [3]

АИЛ АЛНИ АНИС АПЕЛЬСИН АПИС АПСЕЛЬ АС
ЕЛАНЬ ЕЛЬ
ИЕНА ИЛ ИЛА
ЛАНСЬЕ ЛАНЬ ЛЕИ ЛЕН ЛЕНЬ ЛЕС ЛЕСА ЛЕСИНА ЛИ ЛИНЬ ЛИПА ЛИС ЛИСА ЛЬЕ
ПА ПАЛ ПАЛИ ПАН ПАНЕЛЬ ПАНИ ПАС ПЕАН ПЕНА ПЕНАЛ ПЕНИ ПЕНИС ПЕНС ПЕНЬ ПЕС ПЕСНЬ ПИ ПИАН ПИЛА ПИЛЬ ПЛАН ПЛЕН ПЛЕНА ПЛИЕ ПЛИС ПСИНА
ПЬЕ ПЬЕСА
САЛЕП САН САНИ САП СЕЛИН СЕЛЬ СЕН СЕНА СЕНИ СЕНЬ СИ СИЕНА СИЛА СИЛЕН СИНАП СИНЕЛЬ СИНЬ СИП СЛИП СПИН СПИНА СПЛИН

А что надо то было ?



McSimm   (2002-02-08 12:10) [4]

Букварь пошел методом "брут форс".
А отсеять нужный результат не получилось :)



savva   (2002-02-08 12:12) [5]

напелись



McSimm   (2002-02-08 12:21) [6]

"Напелись" - не тот вариант, что я имел ввиду. Хотя поставленной задаче удовлетворяет.
Есть такая игра, одним из условий которой - использование только существительных. Я такого условия не ставил, значит найдено второе решение.



Букварь   (2002-02-08 12:23) [7]

Ну почему же :) четвертое слово. Можно слегка покоцать расчет и все будет совсем красиво. Получим только нужное :)



Букварь   (2002-02-08 12:31) [8]

Берется словарик в текстовом виде и орабатывается примерно так:
Repeat
WordWork := UpperCase(WordMain);
Readln (DictFile,WordDict);
FrmMain.PrBarMain.Position := FrmMain.PrBarMain.Position + 1;
If WordDict = "" Then Continue;
WordDict := UpperCase(WordDict);
Yes := true;
For ch:=1 to length(WordDict) do
begin
WordChar := copy(WordDict,ch,1);
If pos(WordChar,WordWork) = 0 Then
Begin
Yes := False;
Break
End;
If pos(" ",WordWork) > 0 Then Delete(WordWork,pos(" ",WordWork),1);
If pos(WordChar,WordWork) > 0 Then Delete(WordWork,pos(WordChar,WordWork),1)
end { of for } ;
If Yes = true Then Writeln(ItogFile,WordDict);
Until EOF(DictFile);


Хотя мозгами подобные вещи решать значительно приятнее и интереснее. Просто башка сегодня от перемен погоды разламывается - думать сам совсем не могу.
Могу порекомендовать для любителей подобной забавы
http://games.rax.ru/blitz/



Pat   (2002-02-08 12:49) [9]

апельсин



McSimm   (2002-02-08 13:28) [10]

Как-то в студенческие годы играли мы в подобную игру. Правила были такие. Берется любое слово, перетусовывается и предлагается к отгадыванию. Требование одно: искомое слово - существительное, которое можно встретить в книге.
Чем дальше, тем меньше времени на отгадывание стало требоваться, а интерес стал падать. Тогда взял я томик братьев Стругацких и выбрал слово. Не помню точно как я его тогда перемешал, но предлагаю гурманам подумать над этой задачкой. Предупреждаю - слово не простое. Скорее всего в разговоре уже не используется, но, полагаю, - известно всем. Вот оно:
" мездцоми"

Кстати, задачка была решена приблизительно за неделю.



Wonder   (2002-02-08 13:33) [11]

Ну неделя-то это круто.
А слово и щас используется достаточно широко :)))



McSimm   (2002-02-08 13:38) [12]

Браво!

Интересно, что по этому поводу скажет словарный поиск?
:)



Wonder   (2002-02-08 13:43) [13]

Мало того, что слово используется, так и этих гадов все больше и больше, по-моему, становится :(



Букварь   (2002-02-08 13:58) [14]

Редко втречаешь восьмибуквенное слово, из которого можно составить всего 12 вариантов ... Справедливости ради стоит сказать, что и твари - редкостные, но встречаются на каждом шагу.

Вот варианты кроме реального ответа
ДЕИЗМ ДИЕЗ ДИОЦЕЗ ДО ДОМ ИДО ИОД МИ МИМ МО МОДЕМ ОМ




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.019 c
4-67050           DNT                   2001-12-30 20:43  2002.03.21  
Как определить handle активного окна?


1-66928           Алиса                 2002-03-05 12:24  2002.03.21  
Как проверить запущено ли приложение?


6-66949           HMR                   2001-11-19 15:13  2002.03.21  
Изменение IP адреса


3-66755           dymka                 2002-02-21 08:53  2002.03.21  
Нужен совет по проектированию системы


1-66915           Eraser                2002-03-06 10:26  2002.03.21  
поместить объект в TList