Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Математика    >>    perm
   
 
 Модуль быстрых перестановок   Владимир Лохов 13.07.1994

Модуль перестановок с небольшим тестом



1k 
 

Hello! Hапоминаю : это есть перестановки. Скорость имхо неплохая - 9! за 86 сек. на 386DX40 и 21 сек. на Am486DX4-100. Модуль permut содержит процедуру permutation, perm.pas - маленький тест (запрашивается n, считается n! перестановок, печатается время счета). При первом вхождении в permutation(...) параметр s(string)=''. При дальнейшей работе -- s:текущая перестановка (#1..#n), counter:оставшееся число перестановок. P.S. Делал я это в 94 году. Я его использую, в основном, при шифровке или дешифровке-методом-тыка. Или в "рюкзаке" :-). Have a good OS ! Vladimir S. Lokhov ... Это письмо не достойно таглайна ! --- 2.5-мерный Дед * Origin: We breaks for nothing ! --Tula.WildStation-- (2:5022/18.14)