Pass a function to a function.

[Kowal]

How to pass a function to a function according to the example:

(defun pass (fn a b)
       ???
)

(pass '+ 2 3)
return 5

 

[Tharwat]

Like this.

(defun pass (fn a b)
  (fn a b)
)

(pass + 2 3)

 

[BIGAL]

Maybe like this for points.

 

(setq p2 (mapcar '+ p1 (list X Y Z))) ; add values x 0.0 0.0   0.0 Y 0.0 etc

(setq pt3  (mapcar '+ pt1 pt2) ) ; adds 2 points together

(setq pt3 (mapcar '(lambda (x) (/ x 2.0)) pt3)   ;  divide by 2

(setq mp (mapcar '* (mapcar '+ p1 p3) '(0.5 0.5 0.5))) ; mid point for 2 points