(let1 n(read)(print"Gray code n="n)(dotimes(i(ash 1 n))(format #t#`"~,n,,,,,,'0@a "(number->string(logxor(ash i -1)i)2))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page