숫자 맞추기 게임 with Common Lisp

Common Lisp 언어로 숫자 맞추기 게임을 작성해 보았다.

아래 소스의 18째 줄 (setf guess (parse-integer sbuf)) 는 스트링을 정수로 변환하는 과정이다.



소스 파일명: guessNumber01.lsp

1. #!/usr/bin/env clisp
3. ;;   Filename: guessNumber01.lsp
4. ;;   Purpose:  Interatice game guessing a given number.
5. ;;                 (if condition
6. ;;                     (........)    ; when condition is true
7. ;;                     (........)    ; when condition is flase
8. ;;                 )
9. ;;   Execute: clisp guessNumber01.lsp
10. ;;                     ......
11. ;;   Date: 2013. 9. 7.
13. (defun doGuessing(num)
14.     (let* ((sbuf "")
15.            (guess 0))
16.         (format t "Enter your guess:~%")
17.         (setf sbuf (read-line))
18.         (setf guess (parse-integer sbuf))
19.         (if (= guess num)
20.             (progn
21.                 (format t "You win!~%")
22.                 (quit)
23.             )
24.         )
26.         ;; we won't get here if (= guessnum)
27.         (if (< guess num)
28.             (progn
29.                 (format t "Too low!~%")
30.                 (doGuessing num)
31.             )
32.             (progn
33.                 (format t "Too high!~%")
34.                 (doGuessing num)
35.             )
36.         )
37.     )
38. )
40. (doGuessing 123)

실행> clisp guessNumber01.lsp
Enter your guess:
111
Too low!
Enter your guess:
222
Too high!
Enter your guess:
123
You win!