Скачать Модуль быстрых перестановок

13.07.1994
Скачать файл (1,89 Кб)

Hапоминаю : это есть перестановки. Скорость имхо неплохая - 9! за 86 сек. на 386DX40 и 21 сек. на Am486DX4-100. Модуль permut содержит процедуру permutation, perm.pas - маленький тест (запрашивается n, считается n! перестановок, печатается время счета).
При первом вхождении в permutation(...) параметр s(string)=''.

 При дальнейшей работе -- s:текущая перестановка (#1..#n),
                          counter:оставшееся число перестановок.

P.S. Делал я это в 94 году. Я его использую, в основном, при шифровке или дешифровке-методом-тыка. Или в "рюкзаке" :-).