Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.27;
Скачать: CL | DM;

Вниз

Алгоритм нахождения всех перестановок   Найти похожие ветки 

 
Walkie Talkie   (2004-06-10 16:11) [0]

Блин, чё-то сообразить никак не могу... парюсь с этим рекурсивом...

В общем есть такое: obj: array[1..10] of string;

а result:=obj[1]+obj[2]+...+obj[10];

Вот нужно создать прогу, которая "перетасовывала" этот obj, чтобы получить все возможные перестановки... их N!... в данном случае 10!
реализация нужна для любого количеста элементов...


 
MBo ©   (2004-06-10 16:33) [1]

именно строки переставлять нужно?
начни с символов или небольших чисел.
Включи голову - раз тебе нужно реализовать задачу именно рекурсивно, и известно, что количество вариантов N! - значит, процедура будет вызывать себя с изменяющимся на единицу аргументом - вот от этого и пляши.


 
Walkie Talkie   (2004-06-10 19:56) [2]


> раз тебе нужно реализовать задачу именно рекурсивно

а разве можно по-другому?

PS Хотелось бы более практический совет...


 
GuAV ©   (2004-06-10 22:11) [3]

похожую задачку уже решал:
http://delphimaster.net/view/1-1086250968/


 
Aldor ©   (2004-06-10 22:21) [4]

Во-первых www.google.com + "permutation generation"

 Во-вторых, Кнут, первый том, описан не один оригальный способ, в частности http://acm.uva.es/p/v100/10063.html.

       Удачи!


 
default ©   (2004-06-10 22:24) [5]

http://algolist.manual.ru/maths/combinat/permutations.php


 
default ©   (2004-06-10 22:28) [6]

Aldor ©   (10.06.04 22:21) [4]
у Кнута по-моему больше теор-ки этот момент разобран...могу ошибаться


 
Aldor ©   (2004-06-11 00:05) [7]

default ©   (10.06.04 22:28) [6]
у Кнута по-моему больше теор-ки этот момент разобран...

 Не могу сказать точно, под рукой сейчас нет, но даже если там не приведен код на mix-assembler"е (что, скорее всего автору поста не понадобится), то там алгроитм описан словесно - для таких простых алгоритмов этого, мне кажется, вполне достаточно.


 
Walkie Talkie   (2004-06-11 00:27) [8]


> http://algolist.manual.ru/maths/combinat/permutations.php


Как это я не заметил спасибо... хотя не совсем то, но я уже адаптировал.

Кто столкнётся с такой же проблемой - используйте второй, рекурсивный алгоритм - его проще понять и он более универсален, так как первй использует то, что все символы - цифры, да и ещё в возрастающем порядке... частный случай в общем...



Страницы: 1 вся ветка

Текущий архив: 2004.06.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
14-1086833482
Думкин
2004-06-10 06:11
2004.06.27
С днем рождения! 10 июня


6-1083742410
Анонимщик
2004-05-05 11:33
2004.06.27
TServerSocket/TClientSocket


1-1087227284
Mielofon
2004-06-14 19:34
2004.06.27
EhLib 3.2, Delphi 7 и Windows Xp, 98 глупая проблема


10-1013429216
Flash1
2002-02-11 15:06
2004.06.27
Ошибка при запуске Не найден указанный модуль orbpas41.dll


1-1087047120
Roland
2004-06-12 17:32
2004.06.27
Сравнение файлов реестра