使用Elisp求素数
Elisp学习起来还是蛮有难度的，经过一番尝试，好不容易写出来一个求素数的函数，其中涉及到函数的定义、异常的处理、循环处理和反引号的使用等功能，故写下此笔记，以备忘。
求素数的函数
(defun prime-number (max)
"求一定范围内的素数，返回得到的素数列表"
(let ((r '())(x (number-sequence 2 max)))
(dolist (n x r)
(catch 'error
(dolist (i r (setq r `(,@r ,n)))
(if (= (% n i) 0) (throw 'error nil)))))))
调用方法
求100以内的素数列表
(prime-number 100)
