Major Scales by lynn

import GHC.IO.Encoding
g b=take 7$drop b$s
s=[0,2,3,5,7,8,10]++map(+12)s
n"\xe2\x99\xaf"=1
n""=0
n _= -1
f(x:r)|b<-mod(fromEnum x-2)7=zipWith3(\x y z->cycle"ABCDEFG"!!z:["\xf0\x9d\x84\xab","\xe2\x99\xad","","\xe2\x99\xaf","\xf0\x9d\x84\xaa"]!!(y-x+n r+g b!!0-1))(g b)(g 2)[b..]
m@main=setLocaleEncoding utf8>>getLine>>=putStrLn.unwords.f>>m

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page