fork download
copy 
  1. (defun REMOVE-NUM (L)
  2.   (cond
  3.    ;((numberp L) nil)
  4.    ((atom L) L)
  5.    ((numberp (car L)) (REMOVE-NUM (cdr L)))
  6.    (t (cons (REMOVE-NUM (car L))
  7.             (REMOVE-NUM (cdr L)) ))))
  8.  
  9. (princ (REMOVE-NUM '(2 A (3 B) C (D . 7) (8 . E) F)))
Success #stdin #stdout 0.01s 25012KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(A (B) C (D . 7) E F)
https://ideone.com/evidN7
https://stackoverflow.com/questions/77209665/how-to-remove-all-numbers-from-a-list-in-lisp
language:
Common Lisp (sbcl 1.4.16)
created:
2 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!