प्रोग्रामेटिक फ़ंक्शन परिभाषा: यहां "eval" से छुटकारा पाने के लिए कैसे?

Question

मेरे पास "आईपी", "डेट", "यूआरएल" नामक फ़ंक्शंस का एक सेट है।

इनके साथ, मैं "आईपी-आई", "डेट-इज़" इत्यादि का एक और सेट जेनरेट करना चाहता हूं।

अंततः मेरे पास निम्न समाधान है, जो ठीक काम कर रहा है, लेकिन यह "eval" का उपयोग करता है।

(loop for name in '(ip date url code bytes referer user-agent) do 
    (let ((c-name (intern (concatenate 'string (symbol-name name) "-IS")))) 
    (eval `(defun ,c-name (c) 
      #'(lambda (l) (equal (,name l) c)))))) 

क्या कोई मेरी मदद कर सकता है, "बुराई eval" से छुटकारा पाने के लिए कैसे? मेरे कार्यक्रम के लिए यह आवश्यक है कि फ़ंक्शन नाम सूची के रूप में प्रदान किए जाएं। तो कुछ marcro

(define-predicate ip) 
    (define-predicate date) 
    (define-predicate url) 

आदि के लिए एक कॉल

मेरी जरूरतों फिट नहीं होता। मुझे "eval" के साथ कोई वास्तविक समस्या नहीं है, लेकिन मैं अक्सर पढ़ता हूं, कि eval को खराब शैली माना जाता है और यदि संभव हो तो इससे बचा जाना चाहिए।

अग्रिम में धन्यवाद!

Answer 1

आपको यहां एक मैक्रो का उपयोग करना चाहिए। मैक्रोज का मूल्यांकन संकलन (या लोड) के दौरान किया जाता है और प्रोग्रामेटिक रूप से फ़ंक्शन परिभाषा उत्पन्न करने के लिए उपयोग किया जा सकता है। आपका कोड कुछ इस तरह लिखा जा सकता है:

(defmacro define-predicates (&rest names) 
    `(progn 
    ,@(loop 
      for name in names 
      collect (let ((c-sym (gensym)) 
         (l-sym (gensym))) 
        `(defun ,(intern (concatenate 'string (symbol-name name) "-IS")) (,c-sym) 
         #'(lambda (,l-sym) (equal (,name ,l-sym) ,c-sym))))))) 


(define-predicates ip date url) 

ध्यान दें कि प्रतीकों कार्यों में GENSYM का उपयोग कर उत्पन्न कर रहे हैं। इस विशेष मामले में, यह सख्ती से जरूरी नहीं है, लेकिन मैं आमतौर पर इसे इस तरह से करना पसंद करता हूं ताकि अगर मैं बाद के चरण में कोड को दोबारा जोड़ूं तो कोई लीक होने का कोई मौका नहीं है।

Answer 2

आप एक समारोह (एक मैक्रो के बजाय अन्य जवाब के रूप में) का उपयोग करना चाहते हैं, तो आप (setf fdefinition) का उपयोग करना चाहिए:

(loop for name in '(ip date url code bytes referer user-agent) do 
    (let ((c-name (intern (concatenate 'string (symbol-name name) "-IS")))) 
    (setf (fdefinition c-name) 
      (lambda (c) (lambda (l) (equal (funcall name l) c))))))