Gray code by pla

(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