Create dft.c

dft(X) returns a list of coefficients (one real, one imaginary) for a Discrete Fourier Transformation on X.