Forward Discrete Cosine Transform
R. Matthew Emerson wrote a Lisp Mathematics function implementing the Forward Discrete Cosine Transform (as used in JPEG). He also compared it to the C version from the well-known IJG JPEG library. This code is placed in the Public Domain

See http://www.thoughtstuff.com/rme/lisp.html#dct-speed