Double Parity Vertical Redundancy Check by kozima

(defun f(y)(position-if(lambda(a)(oddp(count #\1 a)))y))(setf(elt(elt(set'x(loop while(listen)collect(read-line)))(f x))(f(apply'map'list'list x)))#\1)(mapc'write-line x)

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

download

return to the top page