Naik, все замки от честных людей

Почему в gtk2hs нельзя рисовать точку с нецелочисленными координатами? Это провал, товарищи

Ксакеп, как лучше посчитать период и предпериод последовательности?
Я делал как-то так, но оно не очень работает:

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. period :: [Int] -> Int -> Int -> Int -> Int                                                                  
2. period [] _ _ _ = 0                                                                                          
3. period [x] _ _ _ = 0                                                                                          
4. period (x:(y:xs)) index a b | x==a, y==b = index - 1                                                          
5.                             | otherwise = period ([y] ++ xs) (index + 1) a b                                  
6.  
7. preperiod :: [Int] -> Int -> Int -> Int                                                                      
8. preperiod seq index period | seq!!index == seq!!(index+period+1), seq!!(index+1) == seq!!(index+period+2) = index - 1
9.                            | otherwise = preperiod (tail seq) (index+1) period

ДубоХирург, Либо я что-то не так понимаю (ибо не Ксакеп), либо ты. Уверен, что ищешь период? Скорее индекс периода длиною в 2 элемента.
Так же не совсем точная постановка задачи: может ли последовательность содержать периодическую подпоследовательность? Про предпериоды ты написал. А может ли встретиться «постпериод»?

Я бы искала так:
0. n = 2
1. Разделить последовательность на n частей
2. Сравнить подпоследовательности в порядке их следования (возможно, позволит учитывать «постпериод», если такое не требуется, то порядок не важен - главное, чтобы все были одинаковыми)
3. Если совпадают несколько рядом стоящих подпоследовательностей - период найден, иначе увеличить n
4. Если подпоследовательности получаются пустыми, период не найден. Для учета предпериода - смещаем последовательность на элемент вправо. И так далее

aRiGaTo, да, я не всё написал.
Последовательность определяется реккурентным соотношением:
xn = (a*x(n-1)+b*x(n-2)+c)%m
Я это использую, и ищу совпадающие пары
Не могу себе представить последовательность с постпериодом, ведь числовые последовательности, в общем-то, не имею конца

Чутка переформулирую задачу в соответствии с текущими условиями:
Дан линейный конгруэнтный ГПСЧ:

Где a, b, c, m - константы, заранее неизвестные.
И для этого генератора надо вычислить период, т. е. написать функцию:
В принципе, рабочий вариант этой функции у меня уже был, но он использовал списки, а по заданию это запрещено. Как это более-менее красиво реализовать без списков?
Пока в голову приходят только итеративные варианты, которые реализовывать не очень красиво.

https://github.com/SeTSeR/HaskellRandom
Вот, написал, если вдруг кому поможет
Таки итеративный вариант

Слегка непонятный, но забавно очень. Особенно эта сложность с вводом кучи символов, которые нужно знать все, чтоб начать писать

Тем кто хочет попробовать изучить Haskell рекомендую посмотреть курсы на https://stepik.org

зачем?