Re: [RFC] caar/cadr/cdar/cddr

[Alp Aker]

On Thu, Jul 12, 2012 at 1:44 PM, Dmitry Antipov <address@hidden> wrote:
>
> $ grep -nHR "(car (car (" lisp | wc -l
> 45
> $ grep -nHR "(car (cdr (" lisp | wc -l
> 164
> $ grep -nHR "(cdr (car (" lisp | wc -l
> 45
> $ grep -nHR "(cdr (cdr (" lisp | wc -l
> 84

Isn't the final open paren in each of the above producing an undercount?

$ grep -R "(car (car " lisp | wc -l
     547
$ grep -R "(car (cdr " lisp | wc -l
     630
$ grep -R "(cdr (car " lisp | wc -l
     379
$ grep -R "(cdr (cdr " lisp | wc -l
     449