(defun g(x y z)(if(= z -1)y(g x(1+ y)(+ z(elt x y)))))(loop for l =(read-line)while l do(format t"~a~%"(g(map'vector(lambda(x)(if(eq x #\()1 -1))l)0 0)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page