Ya has intentado algo como, twiddlefactor (1 :: Float) (1 :: Integer) ? El problema tuya es que no hay un 'type' que es 'Floating' y 'Integral' en el mismo tiempo. Tom

Buenas noches, quisiera consultarles sobre lo siguiente, tengo estas dos funciones

-- Calcula Raiz Wn

wn n = cos c :+ (-1*sin c) where c=2*pi/n

twiddlefactor r k =

concat [(map (^i) [(wn rs)^i | i<-[0..s-1]])| i<-[0..r-1]]

where

rs = (r^k) ;

s = (r^(k-1))

la dificultad que tengo es que twiddlefactor no me acepta enteros

compila pero no me acepta los parametros, sin embargo si la defino como

--Calcula vector de Twiddle Factor

twiddlefactor r s rs= concat [(map (^i) diag) | i<-[0..r-1]]

where

diag = [(wn rs)^i | i<-[0..s-1]]

no tengo problema, lo que sucede es que posteriormente esta definicion me es inconveniente pues el valor de rs es r^k y lo necesito en un programa recursivo, que me esta dando inconvenientes precisamente por que debo estar reenviando el valor r^k. Agradezco la ayuda que puedan darme