Re: [bep] 割り算の答えを小数で出すには？ <Re: learning lisp: while

[Koichi INOUE <inoue@argv.org>]

井上です。

ふふふ、間違ってました。
せっかく先に偶数チェックをしておきながら、ループの中でも2の倍数で割ってま
した。

(defun isprime (x)
  (cond ((= 1 x) t)
	((= 2 x) t)
	((= x 3) t)
	((equal (% x 2) 0)
	 nil)
	(t (let ((i 3)
		 (upper (1+ (/ x 2))))
	     (while
		 (and (< i upper)
		      (> (% x i) 0))
	       (setq i (+ i 2)))
	     (if (>= i upper) t nil)
	     ))))


-- 
                    Koichi Inoue, ARGV
                    E-Mail: inoue@...
                    ICQ UIN: 74900690