Полезные коды
Фильтр: haskell | Сбросить

Поиск циклов функции

Поиск циклов в последовательности методом Флойда.

Программа-тест
  1. m :: Int
  2. m = 441
  3.  
  4. gen :: Int -> Int
  5. gen x = x*x `mod` m
  6.  
  7. main :: IO ()
  8. main = putStrLn $ show $ findCycle gen 2
  9.  
  10. findCycle :: (Eq a) => (a -> a) -> a -> Int
  11. findCycle f x0 = countDistance x0 1
Всего: 1

Мы в соцсетях

vk tw tg yt

Пожертвования

Аноним2850 р.
Freddy1700 р.
riseremi1611 р.
NaruTrey800 р.
vlavolk637 р.
  © aNNiMON (Melnik Software)