안녕하세요 생각 보다 Lisp 언어를 많이 찾아 보시는거 같으시네요 ^^:
반응이... Lisp 생각 보다 어렵고 자료구하기도 힘든거 같습니다.
이번 소스는 소수 구하기 입니다. 소수가 소숫점 1.234 이게 아니라
X라는 숫자를 나누어 떨어지는 수가 1과 자기 자신인 수 입니다.
즉, 2, 3, 5, 7, 11같은 (1 은 소수가 아니라고 합니다. 궁금하신분은 검색해 보시길...)
이 소스는 사용자로 부터 2개의 수를 입력 받아
두 수 사이의 소수를 모두 구해 내는 프로그램 입니다.
그래서!~~ 이렇게 소스를 올리고 있습니다. 물론 소스에 있는 내용을
공부도 안하면서 그냥 배끼면 안되기 때문에.!!!
저는 소스의 일부를 지워 둡니다.
정 공부하다가 모르겠다 하시는 분은 방명록이나
다른 방법으로 연락을 주신다면 힌트나 완전체 소스를 드리도록 하겠습니다.
(세상에서 가장 비싼건 공짜 이다.! )
------------------------- 아래 는 해당 소스 입니다.---------------------------------------------
1. prime 확인 함수 (인자 사용자 입력수, 나누는 수)
(defun tf_prime(n i)
(setq j 1)
/* 이 구간을 삭제 합니다.
*/
(setq j (+ j 1))))
2. prime 중간 함수 사용자로 부터 값을 받아... 해당 결과를...
prime이 아니면 nil을... prime이면 숫자를 반환
(defun p_prime(n)
(let ((nmt (/ (+ n 1) 2)) (counting 2))
(loop
/* 여기도 삭제 합니다. */
(setq counting (+ counting 1)))))
3. (사용자 입력 받고 값 내주는 함수)
// n 부터 m까지의 prime number중 최고 높은 값 구하기
(defun primes(n m)
(let ((at n) (max_n nil))
(loop
/* 여기도 삭제 합니다.
*/
(setq at (+ at 1)))))
반응형
반응형
