LISP: avec prédicat comme paramètre

Question

Je veux un prédicat en tant que paramètre d'une fonction.

(DEFUN per (F L) 
    (cond ((F L) 'working) 
      (T  'anything))) 

(per 'numberp 3) 

comme résultat soulève une erreur:

Undefined operator F in form (F L).

Answer 1

Comme expliqué dans Technical Issues of Separation in Function Cells and Value Cells, Common Lisp est un Lisp-2, à savoir, vous besoin funcall:

(defun per (F L) 
    (if (funcall F L) 
     'working 
     'other)) 
(per #'numberp 3) 
==> WORKING 
(per #'numberp "3") 
==> OTHER 

Voir également apply.

Answer 2

tard à la fête, mais voici un autre exemple:

(defun strip-predicate (p list) 
    (cond ((endp list) nil) 
     ((funcall p (first list)) (strip-predicate (rest list))) 
     (T (cons (first list) (strip-Predicate p (rest list)))))) 

Cela pourrait être utilisé sur des prédicats tels que atome ou numberp:

(strip-predicate 'numberp '(a 1 b 2 c 3 d)) 

(a b c d)

ou:

(strip-predicate 'atom '(a (a b) b c d)) 

((a b))