I have a student who was assigned a programming project to write and FFT
package in Haskell. He has shown me a copy of his code; I have the uneasy
feeling that he may have copied it from somewhere. (I have used a
number of search engines and followed the obvious linkes from haskell.org,
but haven't turned up anything that looks like a copy.)
I have enclosed a portion of his code below. If this code appears to you
to be copied from somewhere else, I would appreciate a pointer to the
source (preferably by this Thursday).
recursive_FFT :: [Coeff] -> [PointV]
recursive_FFT [] = []
recursive_FFT xs = recursive_FFTh (mkComplex (rever xs))
recursive_FFTh :: [CompF] -> [PointV]
recursive_FFTh [] = []
recursive_FFTh xs = if (n == 1) then [head xs] else y
where
n = length xs
wn = (exp (0.0 :+ ((2.0*pi) / (fromInt (n)))))
w = 1.0
a0 = even_coeff xs
a1 = odd_coeff xs
y0 = recursive_FFTh a0
y1 = recursive_FFTh a1
y = y_help 0 0 n wn w w y0 y1
Please respond directly to me ([EMAIL PROTECTED]). Thank you.
Steve Vegdahl
University of Portland
