1. Forum
  2. Usenet
  3. COMP.LANG.LISP

  • Re: Strange issue with packages

    From B. Pym@21:1/5 to Pascal Costanza on Thu Aug 22 08:40:09 2024
    Pascal Costanza wrote:

    (defun count (element list)
    (loop for x in list
    count (eql x element)))

    newLISP

    (count '(c) '(b c d f c g h c))
    ===>
    (3)

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From B. Pym@21:1/5 to Pascal Costanza on Wed Jun 18 20:57:36 2025
    Pascal Costanza wrote:

    (defun count (element list)
    (loop for x in list
    count (eql x element)))

    Scheme

    (count (cut eqv? <> 'm) '(m n o p m a k m o))

    ===>
    3

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From B. Pym@21:1/5 to B. Pym on Sun Jun 22 16:22:47 2025
    B. Pym wrote:

    Pascal Costanza wrote:

    (defun count (element list)
    (loop for x in list
    count (eql x element)))

    Scheme

    (count (cut eqv? <> 'm) '(m n o p m a k m o))

    ===>
    3

    Using "is":

    (count (is 'm) '(m n o p m a k m o))

    Given:

    (define is
    (case-lambda
    [(x) (lambda(y) (equal? y x))]
    [(pred x) (lambda(y) (pred y x))]
    [(key pred x) (lambda(y) (pred (key y) x))]))

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)