(dotimes(x(ash 1(set'n(read))))(format t"~[Gray code n=~D ~:*~]~V,'0B "x n(logxor(ash x -1)x)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page