저기 오늘 첨으로..lisp 라는 것을 접해본 초보인데요..유틸리티에 있는 기초자료를 받아서… 연습 하는도중에…예제 4번 부터..안되네요..ㅠ.ㅠ
에러는 안나오는데요…
****실행시켰을때…*****
null function (이라고…뜹니다..)
(>N 0)
(WHILE (>N 0) (COND ((=0 (REM N 2)) (COMMAND “color” “red”)) ((0= (REM N 3))
(COMMAND “color” “blue”)) ((=0 (REM N 5)) (COMMAND “color” “yellow”)) (T
(COMMAND “color” “white”))) (COMMAND “circle” CNT R) (SETQ R (+R IC) N (=N 1)))
*****lisp 작성***
(defun c:ex4 (/)
(setq cnt (getpoint “nCenter point :”)
r (getint “nRadius :”)
n (getint “nNumber of circle :”))
(while (> n 0)
(if (= 0 (rem n 2))
(command “color” “red”)
(command “color” “green”)
) (command “circle” cnt r)
(setq r (+ r 0.5)
n (- n 1))
) )
이렇게 작성은 했걸랑요…고수님들…조언 부탁드립니다..꾸벅..