ɥozɐʞıɥ

_ [Lisp] 素数判定

最近、Lispをお勉強です。本当はErlangやClojureを目指しているのです。

急がば回れ的に基礎からちまちまと。

(defun prm (n)
	   (labels ((prm2(n k)
		    (cond ((< (/ n 2) k) t)
			  ((= (mod n k) 0) nil)
			  (t (prm2 n (1+ k))))))
	    (prm2 n 2)))