Zigzag by quijote

(setq n(read)c(read-char)m(*(1- n)2))(dotimes(i n)(dotimes(j(+(*(1- n)m)1 i))(princ(if(or(=(mod(+ j i)m)0)(=(mod(- j i)m)0))c #\ )))(princ #\\x0d
))

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

download

return to the top page