(set-syntax-from-char #\: #\ )(setf m(read)i(read)p(read))(dotimes(a m)(format t"~D "i)(incf i(floor(* i p)100)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page