Path: news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail
From: "B. Pym" <Nobody447095@here-nor-there.org>
Newsgroups: comp.lang.lisp,comp.lang.scheme
Subject: Re: count symbols in a list
Date: Sun, 6 Jul 2025 21:22:47 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 50
Message-ID: <104epf6$2ethv$1@dont-email.me>
References: <104eaue$2am2p$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Sun, 06 Jul 2025 23:22:48 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="e9607d0181b6eedff585ea84ac51b55a";
	logging-data="2586175"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19PhTKRotVV1Rdq90Xop9C6"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:jqoTHVM2vdwzYRjGmYu7ol1JI7c=

B. Pym wrote:

> Erik Naggum wrote:
> 
> > >  I want to write a function that takes a list of symbols k and and lisp
> > >  expression l and counts the number of times each symbol in k occurs in
> > >  the lisp expression. It should return an alist binding each symbol to its
> > >  count.  I want to do this without flattening the list before I go through
> > >  it looking for symbols.
> > 
> >   Look for two things in this code: How it is formatted, and how it does
> >   its work.  (The way you have formatted your code annoys people.)  Explain
> >   to me why this works and gives the right answer when you have ascertained
> >   that it does.  Explain why it is efficient in both time and space.
> > 
> > (defun count-member (symbols tree)
> >   (let* ((counts (loop for symbol in symbols collect (cons symbol 0)))
> 
> Why didn't he use the simpler "mapcar" instead of "loop"?
> Example:
> 
> (mapcar (lambda(s) (cons s 0)) '(a b c))
>   ===>
> ((A . 0) (B . 0) (C . 0))
> 
> 
> >          (lists (list tree))
> >          (tail lists))
> >     (dolist (list lists)
> >       (dolist (element list)
> >         (cond ((consp element)
> >                (setf tail (setf (cdr tail) (list element))))
> >               ((member element symbols :test #'eq)
> >                (incf (cdr (assoc element counts :test #'eq)))))))
> >     counts))
> 
> 
> Testing:
> 
> * (count-member '(w x y z) '(a x (b y y (z) z)))
> 
> ((W . 0) (X . 1) (Y . 0) (Z . 0))
> 
> It only counts the top-level symbols!


The testing was done under SBCL.  Perhaps the function
will work correctly under another version of CL.
In any case, this is questionable code.