想问一下大牛们,elisp的函数如何实现引用传递?

;;实现(a b c d e)的一个全排列
(setq count 0)
(defun arrange-list (plist rlist temp)
  ""
  (if (= temp 5)
      (progn 
        (message "[%s]rlist:%s" count rlist)
        (setq count (1+ count)))
    (let ((i 0)
          ) 
      (while (< i 5)
        (setq rlist (cons  (nth i plist) rlist))
        (arrange-list plist rlist (1+ temp))
        (setq rlist (cdr rlist))
        (setq i (1+ i))
      )
      )
    )
)


(let ( (plist '(a b c d e))
      )
  (arrange-list plist nil 0)
)

如题,想计算出全排列的个数,这个plist在递归调用是值传递还是引用传递?如果是值拷贝,当plist规模很大时岂不是很耗内存?

elisp就是pass by ref,甚至因此藏有一些陷阱

参考 company--permutations 或者 -permutations 的实现。

我这个是丑陋了一点哈哈,顺便问一下elisp的学习路线, 我该怎么快速掌握呢?

我之前写的lambda 过程需要funcall才能调用,跟scheme不一样,奇怪,这个是elisp特有的模式吗?

(defun company--permutations (lst)
  (if (not lst)
      '(nil)
    (cl-mapcan
     (lambda (e)
       (mapcar (lambda (perm) (cons e perm))
               (company--permutations (cl-remove e lst :count 1))))
     lst)))

看了company–permutatios的实现,还是有点疑问,cl-xxx这种函数是elisp还是common lisp?它们可以混合起来写的吗? 还有(cl-remove e lst :count 1)里的:count 这个是什么用法? lisp程序有没有一个比较完善的类似c或java的api文档可以查询呢?

Emacs自帶文檔,C-h i隨便看。

cl-*是elisp模擬的common lisp的部分實現。因爲當初RMS教主覺得cl過於複雜,所以簡化CL做出來Elisp,後來Emacs引入了詞法作用域,而且各種插件寫的越來越喪心病狂了,落後生產力跟不上人民羣衆的需要了,只好重新發明了一次CLtL1,扗Emacs裏名字叫cl-lib

cl-lib有關的文檔扗Info的CL章節裏,Elisp有關的文檔扗Elisp章節裏。

此外C-h f可以查詢函數的docstring。Emacs內置函數的docstring還是比較詳盡的。另外CL的Hyperspec有時可以用作參考 Common Lisp HyperSpec (TM)


:count 用來限制最大移除個數

用`code`貼單行代碼

```

多行代碼

```

2 个赞

非常感谢! 也许是我太弱了,上面的代码在结构上看不懂,这lambda的两层嵌套也太难懂了,再加上递归,我绕了半天也没绕明白,我再好好研究研究吧,谢谢!

C-u M-x eval-defun 开启逐步调试