2008年7月14日月曜日

Open Lisp 超初心者用 コード集 01

;;Open Lisp です

;;ファイルへの書き出し(ファイルは上書きされる)
(with-open-output-file
    (outstream-test
    "T:/Lisp/test_code/test-output-file.txt")
    (format outstream-test "Hello file!~%")
    (format outstream-test "Hello line!~%")
    (format outstream-test "Hello strings!~%")
)

;;ちょっと調べたところでは、Lispでよく出てくる「with-open-file」は、存在しない模様…


;;ファイルを読む(ただし、この例だと初めの1行のみ読む)
(with-open-input-file
    (inputstream-test
    "T:/Lisp/test_code/test-input-file.txt")
    (read-line inputstream-test))


;;listの連結
;;(append list*) → <list> function
    ;;連結するlistはいくつでもいい
(defglobal aa nil)
(setf aa (append '(a b c) '(d e f)))
;;⇒ (a b c d e f)


;;文字列の連結
;;(string-append string*) → <string> function
    ;;連結する文字列はいくつでもいい
(string-append "abc" "def")
;;⇒ "abcdef"


0 件のコメント: