LISP count alphabet

[bobokent]

Learnt all numbers in a list, all alphabets in a list.
but how if both in the same?

such as
(count-alpha '(8 0 b 7 h u 6 d ) ) -> 4
(count-no '(8 0 b 7 h u 6 d ) ) -> 4

[ReMark]

Your request looks vaguely familiar. I swear that someone posted this same question recently. Try a search on the word "alphabet".

[Tharwat]

Things like this ...

(mapcar (function (lambda (x)
                    (if (numberp x)
                      (setq n (cons x n))
                      (setq a (cons x a))
                    )
                  )
        )
        '(8 0 b 7 h u 6 d)
)

[Tharwat]

Anther with the use of foreach function ....

(foreach item '(8 0 b 7 h u 6 d)
  (if (numberp item)
    (setq numbers (cons item numbers))
    (setq alpha (cons item alpha))
  )
)

Would return the same result as the first codes .

numbers = ( 6 7 0 8 )
alpha = ( D U H B )

[Lee Mac]

(defun count-alpha ( l )
    (length (vl-remove-if 'numberp l))
)
(defun count-no ( l )
    (length (vl-remove-if-not 'numberp l))
)

[bobokent]

(mapcar (function (lambda (x)                     (if (numberp x)                       (setq n (cons x n))                       (setq a (cons x a))                     )                   )         )         '(8 0 b 7 h u 6 d) )

Error: Attempt to take the value of the unbound variable `N'.
[condition type: UNBOUND-VARIABLE]

(foreach item '(8 0 b 7 h u 6 d)   (if (numberp item)     (setq numbers (cons item numbers))     (setq alpha (cons item alpha))   ) )

Error: attempt to call `FOREACH' which is an undefined function.
[condition type: UNDEFINED-FUNCTION]

(defun count-alpha ( l )
    (length (vl-remove-if 'numberp l))
)
(defun count-no ( l )
    (length (vl-remove-if-not 'numberp l))
)

Error: attempt to call `VL-REMOVE-IF' which is an undefined function.
[condition type: UNDEFINED-FUNCTION]

[MSasu]

What CAD application are your using in fact?!? Those don't appear as AutoLISP error messages...

[MSasu]

Or are you talking in fact of LISP language? Then please pay attention that this Forum is dedicated to AutoLISP, a dialect of LISP used under AutoCAD editor; so I'm afraid that will have to find other resource for help on your issue.

[Lee Roy]

It appears to be an error message formatting from the Common Lisp language.

[irneb]

In which case: Using ECL's Lisp Shell:

(length (remove-if-not (lambda (a) (stringp a)) '(1 3 6 "34" 5 "name")))
2