Skip to main content

Common Lisp 설치하기

왠지 요새 Lisp을 공부해야될것만 같은 기분이 들어 책을 빌려 보기 시작했습니다. ((Practical Common Lisp, Peter Seibel, APRESS, 2005)) Ruby에 Lisp에... 요새 갑자기 모르는 프로그래밍 언어 공부에 필받았네요. ;-)
이번 글은 제가 사용하기로 한 SBCL와 SLIME의 설치 방법입니다.

Requirements

  1. Linux 머신
  2. emacs
  3. SBCL: Steel Bank Common Lisp
  4. SLIME: The Superior Lisp Interaction Mode for Emacs
SLIME는 emacs의 mode로 Lisp 프로그래밍을 위한 IDE라고 보시면 됩니다. ((Intergrated Development Environment))

Installation

SBCL

  1. 다운받은 sbcl-0.9.12-x86-linux-binary.tar.bz2의 압축을 풉니다.
  2. $ sh install.sh을 실행시킵니다.
    - 이때 root 권한이 없어 자신의 홈디렉토리 밑에다 생성해야 할 경우에는 다음과 같이 INSTALL_ROOT 환경 변수를 셋팅한 후 install.sh을 실행시킵니다. 아래 내용은 자신의 홈디렉토리 밑에 생성한 경우를 대상으로 설명합니다.
    $ export INSTALL_ROOT=${HOME}
  3. 환경 변수에 다음과 같은 내용을 추가합니다.
    export PATH=${PATH}:${HOME}/bin
export SBCL_HOME=${HOME}/lib/sbcl
  4. $ sbcl이 정상적으로 실행되는지 확인합니다.

SLIME

  1. 다운받은 slime-2.0.zip의 압축을 풉니다.
  2. 디렉토리의 이름을 slime으로 바꾼 후 적당한 디렉토리로 옮겨 놓습니다. 저의 경우에는 아래 디렉토리를 사용했습니다.
    ${HOME}/etc/slime
  3. emacs 파일에 아래 내용을 추가합니다.
    (add-to-list 'load-path "~/etc/slime/") ; your SLIME directory
(setq inferior-lisp-program "~/bin/sbcl") ; your Lisp system
(require 'slime)
(slime-setup)

(setq auto-mode-alist (cons '(".cl$" . lisp-mode) auto-mode-alist))

Usage

  1. emacs를 실행시킵니다.
  2. M-x slime을 입력하면 CL-USER> 프롬프트가 나오는 창이 생성됩니다. 이 창이 REPL 창입니다. ((Read-Eval-Print Loop))
  3. 끝내려면 콤마(,) 입력 후 quit를 입력합니다.
  4. 수행 도중 debug 모드에서 나오려면 'q' 를 입력합니다.

간단한 키바인딩은 다음과 같습니다.

^ 키 ^ 의미 ^
| C-c C-q | 괄호 닫기 |
| C-c C-c | 컴파일 |
| C-c C-l | 파일 로딩 |
| C-c C-k | 현재 버퍼 컴파일 & 로딩 |

이제 Lisp 프로그래밍을 해볼까요?

CL-USER> (+ 2 3)
5
CL-USER> (format t "Hello, world")
Hello, world
NIL

:-)
Labels:

Comments

  1. CNOctober 23, 2006 at 7:14 AM

    Practical Common Lisp은 어디서 빌리신 건가요? 이 책을 소장한 공공도서관이 있나요?

    ReplyDelete
  2. iwonguOctober 23, 2006 at 7:27 AM

    아뇨... 회사 도서관에서.
    절반쯤 보다가 반납했습니다. ANSI Common Lisp이라는 책이 또 나왔던데... 책을 빌려보는 것의 단점으로 다른 사람이 예약하면 2주만에 반납해야 해서 자꾸 흐름이 끊기네요. 한권 사야 할런지... :-|
    덕분에 아직 lisp의 강력함에 반하지 못하고 있습니다. :-)

    ReplyDelete
  3. CNOctober 24, 2006 at 5:03 AM

    iwongu님의 수준에 도움이 되실지 모르겠지만 전 처음에 http://www.lisperati.com/ 여길 접속해서 풍미를 익혔습니다.

    ReplyDelete
  4. iwonguOctober 24, 2006 at 5:47 AM

    lisp에 관해선 아직 수준이랄만한게 없습니다. 추천해 주신 사이트로 저도 lisp의 세계에 발을 들여놓을 수 있었으면 좋겠네요. :-)

    ReplyDelete

Post a Comment

Popular posts from this blog

1의 개수 세기 - 해답

벌써 어제 말한 내일이 되었는데 답을 주신 분이 아무도 없어서 좀 뻘쭘하네요. :-P 그리고 어제 문제에 O(1)이라고 적었는데 엄밀히 얘기하자면 O(log 10 n)이라고 적었어야 했네요. 죄송합니다. ... 문제를 잠시 생각해보면 1~n까지의 수들 중 1의 개수를 얻기 위해서는 해당 숫자 n의 각 자리의 1의 개수가 모두 몇개나 될지를 구해서 더하면 된다는 사실을 알 수 있습니다. 예를 들어 13이라는 수를 생각해 보면 1~13까지의 수에서 1의 자리에는 1이 모두 몇개나 되는지와 10의 자리에는 모두 몇개나 되는지를 구해 이 값을 더하면 됩니다. 먼저 1의 자리를 생각해 보면 1, 11의 두 개가 있으며 10의 자리의 경우, 10, 11, 12, 13의 네 개가 있습니다. 따라서 2+4=6이라는 값을 구할 수 있습니다. 이번엔 234라는 수에서 10의 자리를 예로 들어 살펴 보겠습니다. 1~234라는 수들 중 10의 자리에 1이 들어가는 수는 10, 11, ..., 19, 110, 111, ... 119, 210, 211, ..., 219들로 모두 30개가 있음을 알 수 있습니다. 이 규칙들을 보면 해당 자리수의 1의 개수를 구하는 공식을 만들 수 있습니다. 234의 10의 자리에 해당하는 1의 개수는 ((234/100)+1)*10이 됩니다. 여기서 +1은 해당 자리수의 수가 0이 아닌 경우에만 더해집니다. 예를 들어 204라면 ((204/100)+0)*10으로 30개가 아닌 20개가 됩니다. 이런 방식으로 234의 각 자리수의 1의 개수를 구하면 1의 자리에 해당하는 1의 개수는 ((234/10)+1)*1=24개가 되고 100의 자리에 해당하는 개수는 ((234/1000)+1)*100=100이 됩니다. 이들 세 수를 모두 합하면 24+30+100=154개가 됩니다. 한가지 추가로 생각해야 할 점은 제일 큰 자리의 수가 1인 경우 위의 공식이 아닌 다른 공식이 필요하다는 점입니다. 예를 들어 123에서 100의 자리에 해당하는 1의 개수는 ((123/1...
3 comments
Read more

CodeHighlighter plugin test page.

This post is for testing CodeHighlighter plugin which uses GeSHi as a fontifier engine. ((Those code blocks are acquired from Google Code Search .)) ((For more supported languages, go CodeHighlighter plugin or GeSHi homepage.)) C++ (<pre lang="cpp" lineno="1">) class nsScannerBufferList { public: /** * Buffer objects are directly followed by a data segment. The start * of the data segment is determined by increment the |this| pointer * by 1 unit. */ class Buffer : public PRCList { public: Buffer() { ++index_; } PHP (<pre lang="php" lineno="4">) for ($i = 0; $i $value = ord( $utf8_string[ $i ] ); if ( $value < 128 ) { // ASCII $unicode .= chr($value); } else { if ( count( $values ) == 0 ) { $num_octets = ( $value } $values[] = $value; Lisp (<pre lang="lisp">) ;;; Assignment (define-caller-pattern setq ((:star var fo...
88 comments
Read more

std::map에 insert하기

얼마전 회사 동료가 refactoring한 코드를 열심히 revert하고 있어서 물어보니 다음과 같은 문제였습니다. 원래 코드와 refactoring한 코드는 다음과 같더군요. nvp[name] = value; // original code nvp.insert(make_pair(name, value)); // refactored 아시겠지만 위의 두 라인은 전혀 다른 기능을 하죠. C++03에 보면 각각 다음과 같이 설명되어 있습니다. 23.1.2/7 Associative containers a_uniq.insert(t): pair<iterator, bool> inserts t if and only if there is no element in the container with key equivalent to the key of t. The bool component of the returned pair indicates whether the insertion takes place and the iterator component of the pair points to the element with key equivalent to the key of t. 23.3.1.2/1 map element access [lib.map.access] T& operator[](const key_type& x); Returns: (*((insert(make_pair(x, T()))).first)).second. 원래 코드는 매번 새 값으로 이전 값을 overwrite했지만 새 코드는 이전에 키가 존재하면 새값으로 overwrite하지 않습니다. 따라서 원래 기능이 제대로 동작하지 않게 된것이죠. 그래서 물어봤죠. "왜 이렇게 했어?" "insert가 성능이 더 좋다 그래서 했지." :-? 사실 Fowler 아저씨는 Refactoring 책에서 refactoring은 성능을 optimizing하기 위한 것이 아니다라...
3 comments
Read more