(최대공약수 구하기) while... 반복문 예제 for Common Lisp

소스 파일명: testWhile.lsp

1. #!/usr/bin/env clisp
3. ;; Filename: testWhile.lsp
4. ;;
5. ;;  Purpose:  Example using the while loop syntax
6. ;;                (loop while (cond) do .... )
7. ;;
8. ;; Execute: clisp testWhile.lsp -200 300
10. ;; 사용법 표시
11. (defun printUsage()
12.     (format t "Usage: clisp testWhile.lsp [integer1] [integer2]~%")
13.     (format t "This finds the greatest common divisor of the given two integers.~%") )
15. ;; 스트링을 부동소수점수로 변환하는 함수
16. (defun parse-number (v)
17.      (with-input-from-string (s v) (read s)))
19. (if (not(= (length ext:*args*) 2)) (printUsage))
20. (if (not(= (length ext:*args*) 2)) (quit))
22. ;; --------------------------------------
23. ;; 명령행 인자의 두 스트링을 가져와서
24. ;; 정수 타입으로 변환하여
25. ;; 변수 val1과 val2에 저장한다.
26. (setf val1 (parse-integer (nth 0 ext:*args*)))
27. (setf val2 (parse-integer (nth 1 ext:*args*)))
29. ;; a는 |val1|, |val2| 중 큰 값
30. (setf a (abs val1))
31. (setf b (abs val2))
33. (setf once 1)
34. (if (< a b) (loop while (= once 1) do
35.     (setf a (abs val2))
36.     (setf b (abs val1))
37.     (format t "a = ~D, b = ~D~%" a b)
38.     (setf once 0) ))
40. ;; 블럭문이 두 개 이상의 문으로 구성되어 있으면 progn을 사용한다.
41. (if (zerop b) (progn
42.     (format t "GCD(~D, ~D) = ~D~%" val1 val2 a)
43.     (quit) ))
45. ;; --------------------------------------
46. ;; Euclidean 알고리즘의 시작
47. ;;
48. ;; a를 b로 나누어 몫은 q에, 나머지는 r에 저장
49. (setf q (floor (/ a b)))
50. (setf r (mod a b))
51. ; (format t "q = ~D, r = ~D~%" q r)
53. ;; --------------------------------------
54. ;; Euclidean 알고리즘의 반복 (나머지 r이 0이 될 때 까지)
55. (loop while (not(zerop r)) do
56.     (setf a b)
57.     (setf b r)
58.     (setf q (floor (/ a b)))
59.     (setf r (mod a b)))
61. ;; 나머지가 0이면 그 때 나눈 수(제수) b가 최대공약수(GCD)이다.
62. (setf gcd b)
64. ;; 최대공약수(GCD)를 출력한다.
65. (format t "GCD(~D, ~D) = ~D~%" val1 val2 gcd)
67. (quit)

실행:

Command> clisp testWhile.lsp
Usage: clisp testWhile.lsp [integer1] [integer2]
This finds the greatest common divisor of the given two integers.

Command> clisp testWhile.lsp -200 300
GCD(-200, 300) = 100

Command> clisp testWhile.lsp -200 0
GCD(-200, 0) = 200

Command> clisp testWhile.lsp 125 100
GCD(125, 100) = 25

Command> clisp testWhile.lsp 23 25
GCD(23, 25) = 1