if...else... 조건문 사용 예제 for Common Lisp

소스 파일명: testIf.lisp

1. #!/usr/bin/env clisp
3. #|
4.    Filename: testIf.lisp
5.    Purpose:  Example using the conditional control structure syntax
6.                  (if cond block1 block2)
7.    Execute: clisp testIf.lisp [number]
8. |#
10. ;; 사용법을 보여주는 함수
11. (defun printUsing()
12.    (format t "Using: clisp testIf.lisp [number]~%")
13.    (format t "This determines whether the number is positive or not.~%") )
15. ;; 스트링을 부동소수점수로 변환하는 함수
16. (defun parse-number (v)
17.      (with-input-from-string (s v) (read s)))
19. ;; 명령행 인자의 개수가 1이 아니면 사용법을 보여준다.
20. (if (< (length ext:*args*) 1)
21.     (printUsing) )
22. (if (< (length ext:*args*) 1)
23.     (quit) )
25. ; 명령행 인자의 스트링을 가져와서
26. ; 배정밀도 부동소수점수로 변환하여
27. ; 변수 val에 저장한다.
28. (setf val (parse-number (nth 0 ext:*args*)) )
30. ; 변수 val에 저장된 값이 양수인지 음수인지 0인지를
31. ; 판단하는 (if cond block1 block2) 조건문
32. (if (> val 0.0)
33.     (format t "~F is a positive number.~%" val)
34.     (if (< val 0.0)
35.         (format t "~F is a negative number.~%" val)
36.         (format t "~F is zero." val)))

 

실행> clisp testIf.lisp
Using: clisp testIf.lisp [number]
This determines whether the number is positive or not.

실행> clisp testIf.lisp 1.02
1.02 is a positive number.

실행> clisp testIf.lisp -1.02
-1.02 is a negative number.

실행> clisp testIf.lisp 0
0.0 is zero.