emacs 执行数学计算函数fib

 (defun  fib (n)                     
(if (eq  n  1)                       
        1                            
        (if  (eq  n 2)               
                1                    
                 (+  (fib  (-  n  1))  
                     (fib (-  n  2 )))))) 

(defun  fibwrap (n)                   
(interactive  "ninput your base number n?\n")
(print (fib  n)))                                             

 

 

注意        interactive中接受输入一定要有个\n,用M-x-fibwrap执行。