Equal Temperament by Icewing

import Text.Printf
h=init[[x,y]|x<-"CDEFGAB",y<-" #",[x,y]/="E#"]
main=mapM(uncurry$printf"%-6s%.3f\n")$zip h[440*2**(i/12)::Float|i<-[-9..2]]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page