Advent of Code Not Quite Lisp by tamamu

(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