Zigzag by youz

(setf n(1-(read))c(read-char))(dotimes(i(1+ n))(format t"~V@T~A~V@{~:[~;~2*~V@A~]~V@A~3@*~}
"i c n(< 0 i n)(* n 2)c(*(- n i)2)c(* i 2)c))

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

download

return to the top page