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

[irneb]

Or using a similar approach as Tharwat's in post #4:

ECL-0.9i % (setq count 0)
0
ECL-0.9i % (loop for item in '(1 3 6 "34" 5 "name") do (if (stringp item) (setq count (1+ count))))
NIL
ECL-0.9i % count
2

[irneb]

Sorry:oops: ... the OP didn't use strings, only symbols.

ECL-0.9i % (length (remove-if (lambda (a) (numberp a)) '(8 0 b 7 h u 6 d )))
4
ECL-0.9i % (setq count 0)
0
ECL-0.9i % (loop for item in '(8 0 b 7 h u 6 d ) do (if (not (numberp item)) (setq count (1+ count))))
NIL
ECL-0.9i % count
4