[파일명: testSort.lsp]------------------------------------------------
(defun printArray(a)
(format t "[")
(loop for i from 0 below (1- (length a)) do
(format t "~A, " (nth i a))
)
(if (plusp (length a))
(format t "~A" (nth (1- (length a)) a))
)
(format t "]~%")
)
(setf list ext:*args*)
(sort list #'string<)
(printArray list)
------------------------------------------------
실행> clisp testSort.lsp one two three four five
[five, four, one, three, two]
실행> clisp testSort.lsp 하나 둘 셋 넷 다섯
[넷, 다섯, 둘, 셋, 하나]
'프로그래밍 > Common Lisp' 카테고리의 다른 글
숫자 맞추기 게임 with Common Lisp (0) | 2013.09.07 |
---|---|
스트링 리스트에서 스트링 찾기(find) with Common Lisp (0) | 2013.09.06 |
Pollard's rho method 소개: 정수의 인수분해(factorizing integers) with Common Lisp (0) | 2013.09.06 |
손으로 계산하는 긴자리 곱셈표 만들기 with Common Lisp (0) | 2013.09.06 |
문자열 거꾸로 하기 with Common Lips (0) | 2013.09.06 |