(do'(x(map'list'digit-char-p(read-line))(mapcar'abs(mapcar'-(cdr x)x)))((format t"~{~D~:} "x)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page