CL-USER> (defun sum (n)
(if (= n 1) 1
(+ n (sum (- n 1)))))
SUM
CL-USER> (sum 100)
5050
내가 언어교환한 학생의 코드-ㅅ-..
가르쳐주면서 벌써 다 까먹었다는 사실에 슬퍼했다 (..)
(if (= n 1) 1
(+ n (sum (- n 1)))))
SUM
CL-USER> (sum 100)
5050
내가 언어교환한 학생의 코드-ㅅ-..
가르쳐주면서 벌써 다 까먹었다는 사실에 슬퍼했다 (..)




덧글
okoru 2006/09/04 23:51 # 삭제 답글
헉 제가 만든 거네요. 부끄러워라