Necesito crear una función en Haskell, que funcione de la siguiente manera
periodicidad :: [Integer] -> [Integer]
periodicidad [1,2,3,4,1,2,3,4...] = [1,2,3,4]
periodicidad [0,1,2,5,4,3,0,1,2,5,4...] = [0,1,2,5,4,3]
Es decir, que de una lista te extraiga la parte que siempre se va reptiendo, lo que en Ciencias Matemáticas se denominaría periodo de una función.
He intentado agrupar mediante group
y cycle
, pero no consigo nada.
Espero que me puedan ayudar, estoy atascado y no sé qué hacer.