Lisp
-
Common Lisp으로 구현한 트리(Tree)를 중위 순회(In-order Traversal)하는 반복자(Iterator)Programmer/Programming 2016. 5. 17. 15:02
사소해 보이는 연산 뒤에 숨어있는 것 은 인턴 전화 면접에서 깨달은 내용을 담고 있다. 이 글은 인턴 면접을 소재로 하는데, 면접의 내용 중에 트리(Tree)를 중위 순회(Inorder Traversal)하는 반복자를 구현하는 것이 있다. 이 글의 필자는 C++로 구현하였다. 평소 업무에서 Common Lisp을 쓸 기회가 없어서 자꾸 잊어버린다. 도구를 갈고 닦지 않으면 녹슬기 마련이다. 간단하게 트리의 중위 순회를 Common Lisp으로 작성해봤다. 순회 순서 왼쪽의 하위 트리를 순회한다. 자신(중간) 오른쪽의 하위 트리를 순회한다. 순회할 첫번째 노드 구하기 : begin 최상위 노드의 가장 왼쪽에 있는 노드가 첫번째 노드이다. 구현은 왼쪽 하위 노드를 재귀적으로 찾는다. (defun begin ..
-
Lisp에서 클로저(closures)Programmer/Programming 2016. 2. 18. 15:57
클로저란 함수가 lexical 환경(environment)의 변수를 참조하는 것을 말한다. 예를 들면, 아래 코드를 살펴보자. (defparameter *plus-10* (let ((x 10)) (lambda (y) (+ x y)))) X와 Y를 더하는 함수 객체를 만들고, *PLUS-10*이 이를 가르키게 한다. Lexical 변수 X는 LET 구문 블럭이 생성한 환경에 갇혀서 외부에서는 접근할 수 없다. LET 구문 블럭이 종료되었다는 것은 실행 흐름이 LET이 생성한 환경에서 벗어났다는 것을 의미한다. 그럼에도 불구하고, *PLUS-10*를 호출하면 X 변수를 참조할 수 있다. CL-USER> (funcall *plus-10* 20) 30 함수 객체가 다른 곳(예제에서는 dynamic 환경의 *PL..
-
Lisp에서 lexical과 dynamic 변수 타입Programmer/Programming 2016. 2. 18. 15:43
Lisp에는 lexical과 dynamic이라는 두가지 변수(variables) 형태가 존재한다. lexical 변수는 소스 코드를 읽는 단계에서 바인딩(binding)이 결정된다. C나 Java 같은 언어에서 말하는 지역(local) 변수를 생각하면 된다. 함수의 매개변수(parameters)나 LET 구문의 변수가 이런 타입니다. 함수의 매개변수 (defun foo (x y) (+ x y)) 함수를 호출하면, 이 함수에 전달하는 인자(arguments)와 연결(binding)하는 매개변수를 생성한다. 이 변수는 함수 내로 범위가 한정된다. LET 구문의 변수 (let ((x 10) (y 20)) (+ x y)) LET 구문 역시 함수 호출과 동일한 효과를 가진다. LAMBDA로 표현하면 함수의 매개변..
-
리습(Lisp)을 위한 SyntaxHighlighter 3.0 플러그인 작성Programmer/Programming 2015. 3. 17. 00:50
SyntaxHighlighter는 프로그래밍 언어의 문법에 따른 색상을 강조하는 프로그램이다. 자바스크립트(Javascript)와 CSS로 작성하였다. 블로그에 개발에 관련한 글을 쓰다보면 종종 소스 코드를 포함한다. 그럴 때마다 이 프로그램의 고마움을 많이 느꼈다. 공식 배포본에는 리습(Lisp)용 플러그인이 없다. 다행이도 누군가 리습을 위한 플러그인을 만들어서 올려놓았다. 썩 마음에 들지는 않지만, 그냥 저냥 사용하기에는 큰 무리는 없었다. 그러던 중, 눈에 거슬리는 버그 하나를 발견했다. (defun my-save (fname) (with-open-file (*standard-output* fname :direction :output :if-exists :supersede) (my-write)))..
-
리스프 개발 팁: 명령창 결과 저장하기Programmer/Programming 2014. 6. 27. 10:38
리스프에서 개발하기 가장 좋은 도구는 REPL 명령창이다. 따라서 저장할 내용을 표준 출력으로 보내면 개발이 수월할 것이다. 예를 들어, 당신은 `MY-SAVE' 함수를 개발하고 있다. 이 함수는 인자 `FNAME'으로 받은 파일명에 당신의 데이타를 저장한다. 개발 과정에서 수시로 파일을 열어서 내용을 확인해야 한다. 불편하다. REPL 명령창에 저장할 내용을 바로 확인하면 개발이 훨씬 편하겠다. 데이타를 저장할 형태로 가공하여 REPL 표준 출력하는 함수 `MY-WRITE'를 작성하자. 이 함수의 구현과 검증은 REPL을 벗어날 필요가 없다. 이제 함수 `MY-SAVE'는 단지 표준 출력을 저장할 파일에 연결한 후에 `MY-WRITE'를 호출하면 된다. (defun my-save (fname) (wit..
-
테스트 주도 방식으로 리스프 매크로 작성하기Programmer/Programming 2014. 6. 5. 11:34
Lisp에서 매크로를 작성하는 방법을 "Peter Seibel"의 "Practical Common Lisp"에 따르면 다름과 같은 순서로 진행한다. (비록 쓸모는 없지만 쉽게 이해할 수 있는 두 숫자를 더하는 매크로를 작성하겠다.) 우선 호출할 예제 폼을 작성한다. (add 3 5) 위 예제 폼으로 확장될 코드를 작성한다. (+ 3 5) 매크로를 구현하다. (defmacro add (x y) `(+ ,x ,y)) 테스트 주도 방식을 적용하면 대략 다음과 같다. 2013/05/07 - [Programming/Project Management] - 테스트 주도 개발 - 둘째날 우선 호출할 예제 폼을 작성한다. 위 예제 폼으로 확장될 코드를 작성한다. 테스트 케이스를 작성한다. (테스트 프레임워크는 생략한다...
-
MAPCAR와 그 친구들(MAPC, MAPCAN)Programmer/Programming 2014. 5. 30. 16:05
MAPCAR는 리스트의 값에 동일한 작업을 처리하는데 유용하다. MAPCAR의 인자는 적용할 함수와 한 개 이상의 리스트를 인자로 가진다. 인자 함수는 리스트의 개수만큼 인자를 받을 수 있어야 한다. MAPCAR는 인자 함수의 결과를 리스트로 묶어서 반환한다. 리스트의 모든 값에 10을 더해보다. (인자 함수가 한개의 인자를 가지는 것을 주목한다.) (mapcar #'(lambda (x) (+ x 10)) (list 1 2 3)) ; => (11 12 13) 두개의 리스트의 값을 더해보다. (인자 함수가 두개의 인자를 가지는 것을 주목한다.) (mapcar #'(lambda (x y) (+ x y)) (list 1 2 3) (list 4 5 6)) ; => (5 7 9) MAPC, MAPCAN는 반환값(..
-
간단한 데이타베이스를 TDD 로 개발하기 소스 코드Programmer/Programming 2014. 3. 19. 10:04
아래는 간단한 데이타베이스를 TDD로 개발하기의 최종 결과물이다. cd-db.lisp (defpackage :cd-db (:use :common-lisp) (:export #:dump-db #:drop-db #:make-record #:add-record #:save-db #:load-db #:where #:select #:update #:make-comparison-expr #:make-comparisons-list #:delete-records)) (in-package :cd-db) (defvar *db* nil) (defun dump-db () *db*) (defun drop-db () (setf *db* nil)) (defun make-record (title artist rating ripped..