使用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)