구구단 출력 예제 for Common Lisp

Common Lisp 언어의 함수 정의 구문 양식은

       (defun functionName(parameters)
             block )

이다.

Common Lisp 언어의 반복문 양식은

       (loop for varname from start to last by step do
             block )

이다. 여기서 by step 은 생략해도 되는데 이를 생력하면 반복될 때마다 varname 이 1씩 증가한다.



소스 파일명: forTest.lisp
------------------------------[소스 시작]
(defun printDan(dan)
    (loop for i from 1 to 9 do
        (format t "~D x ~D = ~D~%" dan i (* dan i))))

(printDan 2)
------------------------------[소스 끝]

;; CLisp으로 실행하는 경우
실행> clisp -i forTest.lsp
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

;; Loading file forTest.lsp ...
2 x 1 = 2
2 x 2 = 4
2 x 3 = 6
2 x 4 = 8
2 x 5 = 10
2 x 6 = 12
2 x 7 = 14
2 x 8 = 16
2 x 9 = 18
;; Loaded file forTest.lsp
[1]> (quit)
Bye.


;; Clozure Common Lisp으로 실행하는 경우
실행> wx86cl64 -l forTest.lsp
2 x 1 = 2
2 x 2 = 4
2 x 3 = 6
2 x 4 = 8
2 x 5 = 10
2 x 6 = 12
2 x 7 = 14
2 x 8 = 16
2 x 9 = 18
Welcome to Clozure Common Lisp Version 1.9-r15765 (WindowsX8664)!
? (quit)