(defun f (n &optional (k 0) (c 1) ) (if (>= c n) k ( f n (+ k 1) (* c 2))) ) (+ 1 0) (write(f 4 ))
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more