Script Programming(스크립트 프로그래밍)

다음은 이차방정식 x^2 - x - 1 = 0 의 양의 근 즉 황금비율(golden ratio)을 구하는 Common Lisp 애플리케이션 소스이다. 황금비율을 구하는 비례방정식은 1 : x = x : (x+1) 이며, 이를 이차방정식으로 표현한 것이 x^2 - x - 1 = 0 이다. See: http://en.wikipedia.org/wiki/Golden_ratio 아래의 소스는 CLisp 으로 테스트되었다. ;; Filename: testGoldenRatio.lsp ;; 황금률(즉, 이차방정식 x^2 - x - 1 = 0 의 양의 근)을 계산한다. ;; ;; Execute: clisp testGoldenRatio.lsp ;; ;; Date: 2013. 9. 1. (defun printUsing() ..

현재 시각을 컨솔에 보여주는 간단한 애플리케이션의 Python 언어 소스 코드이다. UTC란 1970년 1월 1일 0시 0분 0초를 기준으로 하여 경과된 초 단위의 총 시간을 의미한다. * UTC(Universal Time Coordinated, 협정세계시, 協定世界時) Common Lisp 언어에서 (get-universal-time) 하여 얻은 값은 UTC(1970년 1월 1일 0시 0분 0초를 기준으로 하여 경과된 초)가 아니라, 1900년 1월 1일 0시 0분 0초를 기준으로 하여 경과된 초이다. 따라서 이 값을 기준으로 UTC를 구하려면 1900년 1월 1일 0시 0분 0초부터 1970년 1월 1일 0시 0분 0초까지 경과된 초를 구하여 빼 주어야 나온다. 그런데 Common Lisp 언어에서는..

다항식 p(x) 를 1차 다항식 x - a 로 나눌 때의 몫과 나머지를 구하는 조립제법을 Common Lisp 언어로 구현해 보았다. 조립제법은 일명 Horner의 방법이라고도 불리우는데, 이는 x = a 에서 다항식 p(x)의 값 p(a)을 계산하는 가장 빠른 알고리즘이기도 하다. p(x) = (x - a)q(x) + r 여기서 r은 나머지이며 r = p(a) 이다. 또 q(x)는 몫이다. [참고] * 온라인으로 조립제법 표 만들기 손으로 계산하는 조립제법 표 * 온라인으로 구하는 다항식의 도함수: 조립제법을 이용한 다항식의 도함수 아래의 소스파일은 Python용 소스파일 testSyntheticDivision.py를 Common Lisp용으로 수정한 것이다. 실행은 CLisp을 사용한다. #!/usr..

다음은 Python용 소스파일 testForFor.py를 Common Lisp용으로 수정한 것이다. Common Lisp 언어에서 format 함수로 출력할 때 ~% 는 개행문자를 의미한다. Python 언어에서 쓰이는 조건 분기 구문 if 조건식1: 블럭1 elif 조건식2: 블럭2 elif 조건식3: 블럭3 else: 블럭4 에 해딩하는 Common Lisp 언어의 구문은 (cond ((조건식1) 블럭1) (조건식2) 블럭2) (조건식3) 블럭3) (t 블럭4) ) 이다. Comon Lisp 언어에서 t와 nil은 각각 Java 언어의 true와 false에 해당하는 불리란 타입의 상수이다. 그러므로 Comon Lisp 언어에서 t와 nil을 변수명으로 사용할 수 없다. #!/use/bin/env c..

소스 파일명: testWhile.lsp #!/usr/bin/env clisp ;; Filename: testWhile.lsp ;; ;; Purpose: Example using the while loop syntax ;; (loop while (cond) do .... ) ;; ;; Execute: clisp testWhile.lsp -200 300 ;; 사용법 표시 (defun printUsage() (format t "Usage: clisp testWhile.lsp [integer1] [integer2]~%") (format t "This finds the greatest common divisor of the given two integers.~%") ) ;; 스트링을 부동소수점수로 변환하는 함수 ..

소스 파일명: testIf.lisp #!/usr/bin/env clisp #| Filename: testIf.lisp Purpose: Example using the conditional control structure syntax (if cond block1 block2) Execute: clisp testIf.lisp [number] |# ;; 사용법을 보여주는 함수 (defun printUsing() (format t "Using: clisp testIf.lisp [number]~%") (format t "This determines whether the number is positive or not.~%") ) ;; 스트링을 부동소수점수로 변환하는 함수 (defun parse-number (v) ..

Common Lisp 언어 의 명령행 인자 처리 방법은 Common Lisp 의 구현체 마다 각각 그 방법이 다르다. 아래의 에제는 CLISP 에서 동작하는 명령행 처리 예제이다. CLISP 에서는 ext:*args* 라는 리스트(list)형 전역변수로 받는다. (length ext:*args*) 는 명령문에서 인자의 개수이다. parse-number 는 대부분의 Coomon Lisp 구현체에서 동작하는 (매우 짧은) 함수로서 스트링(string)을 부동소수점수(floating point number)로 변환하는 일을 한다. mapcar 와 apply 함수를 사용하여 (반복문 없이) 그 합을 구할 수 있게 하였다. GNU CLisp 에서는 명령행에서 실행시 명령행 인자들은 ext:*args* 라는 리스트..

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 (* ..

컨솔에 문자 출력하는 Common Lisp 구문은 (format f "문자열(스트링)~%") 이다. 여기서 ~%는 C 언어의 개행문자 "\n"에 해당한다. 이다. 여기서 개행문자 "\n"은 추가하지 않아도 된다. 소스 파일명: hello.lisp ------------------------------[소스 시작] (format t "Hello, world!~%") (quit) ------------------------------[소스 끝] ;; 윈도우 XP에 설치된 CLISP으로 실행하는 경우: 실행> clisp 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..

ErLang 언어 소스: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Filename: testHexView_03.erl % % Compile: erlc testHexView_03.erl % Execute: erl -f [filename] -run testHexView_03 main -run init stop -noshell % % Date: 2013. 8. 24. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -module(testHexView_03). -export([main/0]). toHex(N) -> X1 = (N band 16#F0) bsr 4, X2 = N band 16#F, S1 = if X1 string:ch..