반응형
Prime 구하기 소스 올립니다.
(defun tf_prime(n i)
(setq j 1)
(loop
(cond ((= (- n (* i j)) 0) (return nil))
((< (- n (* i j)) i) (return t)))
(setq j (+ j 1))))
(defun p_prime(n)
(let ((nmt (/ (+ n 1) 2)) (counting 2))
(loop
(cond ((< n 4) (return t))
((NOT (tf_prime n counting)) (return nil))
((= counting nmt) (return t)))
(setq counting (+ counting 1)))))
실행 방법 : ( p_prime 17) <- 요렇게 하시면 됩니다.
이렇게 되구요... 입력수가 Prime이면... T를... 아니면 nil을 반환 합니다.
사용자 지정구간에 대한 Prime은 어디가 문제 인지 모르겠는데.. 결과 도출이 또 제대로 안되네요 ㅡㅡ;
관련 부분은 소스 코드 점검을 해봐야 될거 같습니다.
구간 점검을 위한 prime 구하는 소스는 다음 번에 올려 드리겠습니다.
반응형
