Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun leng (list &optional (len-so-far 0))
- "Tamanho da lista tail-racursive"
- (if (null list)
- len-so-far
- (leng (rest list) (+ 1 len-so-far))))
- (setq a (read-line))
- (write (leng (parse-integer a)))
Advertisement
Add Comment
Please, Sign In to add comment
