Làm thế nào để gỡ bỏ một chức năng trong một defun?

Question

Ví dụ, tôi vượt qua tên hàm khác chức năng

(personal-function 'func-name '(attr1 attr2 ...)) 

và những gì tôi muốn làm là

(defun personal-function (func-name) 
    (defun func-name '(attr1 attr2 ...) (dosomething))) 

Tuy nhiên, nó nói rằng tôi không thể defun với một biểu tượng ... gì tôi nên làm gì?

Answer 1

Sử dụng

(setf (symbol-function my-symbol) some-function) 

tạo một hàm mới với

(compile nil (list 'lambda args body)) 

nơi args và cơ thể có giá trị có ý nghĩa.

Answer 2

Bạn có thể sử dụng một lambda

http://www.n-a-n-o.com/lisp/cmucl-tutorials/LISP-tutorial-21.html

Nếu bạn đang cố gắng để thực hiện một chức năng trên toàn cầu có thể truy cập mới bên trong một hàm, tôi không nghĩ rằng ngữ pháp của ngôn ngữ cho phép cho điều đó. Nếu bạn tạo một lambda, bạn có thể khởi tạo một biến cho giá trị lambda này và chuyển biến xung quanh các hàm của bạn. Trong Common LISP, bạn có thể gọi (functionp x) để xác định xem một biến là một hàm trước khi bạn cố gắng gọi nó.

Answer 3

Giải quyết nó như sau:

e.g1

(defun create-function(a1) 
    (defun plus-function(x) (+ x a1))) 

(create-function 2) -> PLUS-FUNCTION 
(plus-function 3) ->5 

e.g2

(setf (symbol-function 'printx) #'(lambda (x) (print x))) 

(printx '(1 2 3)) -> (1 2 3) 

---

Trước đây tôi cũng có cùng một vấn đề khi tôi định nghĩa hàm.

Ví dụ:

(defun test-function(fn) 
      (defun fn ((lambda() (print "aaa"))))) 

Sau khi tôi chạy

(test-function 'aaafunction) 

Kết quả đánh giá là

FN 

Nó không trả về một hàm có tên là "aaafunction" ...

Để perso n người downvote câu trả lời của tôi: Chúng tôi là người mới của Lisp, nhưng chúng tôi đang làm việc chăm chỉ để tìm hiểu kiến ​​thức, và bạn không phải là quá tôn trọng.

Answer 4

Tôi sử dụng defmacros để lập trình meta, ví dụ: this ví dụ về emacs lisp.

Answer 5

Sử dụng macro sẽ là lựa chọn tốt. chẳng hạn như (chức năng cá nhân defmacro (func-name) `(defun, func-name '(attr1 attr2 ...) (dosomething))) hãy thử, hy vọng sẽ giúp bạn.